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1. ABSTRACT 

The PDP-9 Basic Exerciser is designed to exercise the CP, core memory and I/O devices as- 
sociated with a basic PDP-9 configuration. Once initiated, the program will perform tests on all operate 
and memory reference instructions, tests on the adder, memory checkerboard patterns, tests on the real- 
time clock, punch, reader. Teletype and program interrupt. 

The Basic Exerciser contains a condensed version of the PDP-9 Instruction Test, Parts 1 and 2, 
and a memory checkerboard test similar to the PDP-9 Basic Memory Checkerboard Test. These tests run 
continuously, and are interrupted by the punch, reader or Teletype at a device rate. The real-time 
clock will interrupt and suspend all operations at random time intervals. The instruction test or I/O 
device resumes operation after the clock interrupt has been serviced. 

Nine ACS functions are provided to enable the operator to (1) inhibit the instruction and 
memory tests and run the real-time clock, program interrupt, and the punch, read, print sequence alone; 
(2) inhibit program interrupts and run the instruction and memory tests alone; (3) loop continuously on 
the adder test; (4) loop continuously on the memory checkerboard test; (5) inhibit program relocation; 

(6) inhibit the real-time clock, but continue testing with program interrupt and all other devices enabled; 

(7) run the instruction and memory tests, and the clock and punch with the read and print sequence in- 
hibited; (8) run the reader, real-time clock and instruction and memory tests with the punch and Teletype 
inhibited; (9) run the read and print sequence, real-time clock and instruction and memory tests with the 
punch inhibited. 

2. REQUIREMENTS 

2.1 Equipment 

A basic PDP-9 configuration. 

2.2 Storage 

The program requires all 8K of core memory to perform all tests. The program initially resides 
in memory locations 00000 to 7730. When the program is relocated to the higher 4K field, it occupies 
locations 10022 to 17730. 

3. LOADING PROCEDURE 

The tape supplied is punched in the HRI mode. 

a. Set the ADDRESS switches to 00000. 

b. Place all AC switches down. 
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c. Place the HRI tape in the reader. 

d. Press I/O RESET, and then READ-IN. 
The program is not self-starting. 

4. STARTING PROCEDURE 

4.1 Start mg Addresses 

22 or 10022 if the program is currently in the upper 4K field. 

4.1 .1 Restarting Addresses - 26 or 10026 if the program is currently in the upper 4K field. 

4 . 2 /"O^or Action ^fO^f^^^l f ^^ ULkt- 

a. Set the ADDRESS switches to 22. 

b. Place all ACS down for normal program operation. See paragraph 5.1 for use of 
the ACS to inhibit certain portions of the program. 

c. Press I/O RESET, and then START. 

d. Approximately 3-1/2 feet of leader will be punched. This leader is blank except 
for one frame which has all channels punched. 

e. Place the punched frame directly over the reader drive sprocket, and position the 
tape between reader and punch for minimum binding. 

f. Press CONTINUE. 

g. The program will run until an error halt occurs, or manually stopped by the operator, 
h. Steps c through f above are similar to the procedure performed with the PDP-9 punch 

test. 

4.2.1 Restarting Procedure - 

a. Set the ADDRESS switches ^/^^ 

b. Place all ACS down for normal program operation. See paragraph 5.1 for use of 
the ACS to inhibit certain portions of the program. 5^T ^^ * (&\^\V -^^^ 

c. If the punch, read and print sequence is not inhibited, make sure there is tape in the 
reader. The tape does not have to be blank leader when restarting. 

d . PressjZD^fKW', and then START . 

e. The program will run until an error halt occurs, or manually stopped by the operator. 
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5. 



5.1 



OPERATING PROCEDURE 







Operational Switch Settings 



Normal program operation is achieved by placing all ACS down Before starting from loca- 



tions 22 o(^6T) 

The operator is provided nine options with which to modify the operation of the program. 
These may be selected by placing any one or a combination of ACS through 8 up before starting from 
locations 22 or 26. 

To make changes in the ACS settings, the program must be stopped by the operator before the 
changes are made. The program must then be restarted from location 26 (or 22 if new leader is desired). 
The program may not recognize the new ACS settings if the above procedure is not followed. 







ACS Functions 

Run only the punch, read and print sequence plus the real-time clock. Program interrupt 
will be enabled. 

Inhibit the punch, read and print sequence. Program interrupt is disabled. The real- 
time clock is on. The complete instruction test and memory checkerboard test will be 
performed. 

Loop continuously on the "add random pairs" test. The real-time clock, punch, read 
and print sequence plus program interrupt will be enabled unless specified otherwise by 
an ACS. 

Loop continuously on the memory checkerboard test. Program relocation will not take 
place. Program action otherwise is the same as that described for ACS 2. 

Inhibit program relocation. Unless otherwise specified, the program will run in a normal 
way, but will not relocate from its current 4K field location to the opposite field after 
completing the memory checkerboard test. 

Inhibit clock. Unless otherwise specified, program action is normal except that the 
clock should always be off. 

Inhibit the reader and TTY. The punch will run continuously. Tape must be In the reader 
to prevent the no-tape indicator from being set. Program action is normal unless other- 
wise specified. 

Inhibit the punch and TTY. The reader will run continuously. A loop or fan-fold tape 
with any data may be used. Program action is normal unless otherwise specified. 

Inhibit the punch. The reader will read 52 characters at full speed and then halt. The 
TTY will then print the 52 characters read. Any tape loop or fan-fold tape may be used. 
Program action is normal unless otherwise specified. 

Any combination of the nine ACS may be used, as long as the operations do not conflict; i.e., 
if ACS 2 and 3 are both up, the add random pairs test would be looped. Memory checkerboard would 






(1) 


1 0) 


2 0) 


3 (1) 


4 (1) 


5 0) 


r: 


^^) 


7 


0) 


8/ 


0) 



not be run unless the program is restarted with ACS 3 alone. 



^ 






.4^' 
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The I/O devices may be controlled with several combinations of ACS 6, 7 and 8. If ACS 7 
and 8 are both up the reader will run continuously, as if ACS 7 only were up. If ACS 6 and 7 or 6 and 
8 are up, all devices will be inhibited. Program interrupt and the real-time clock will be enabled unless 
otherwise specified. 

5.2 Subroutine Abstracts 

The PDP-9 Basic Exerciser may be thought of as three separate programs; i.e., the instruction 
and memory tests; punch, read and print sequence, and operation of the real-time clock. The instruction 
and memory tests will be interrupted, at a device rate, by the punch, reader or Teletype. The clock 
will randomly interrupt any of the above operations at a rate determined by the program. After each 
clock interrupt, the clock is reinitialized with a new number obtained by a random number generator. 
The clock interrupts should occur no less than 2 seconds apart, nor more than 9 seconds. The clock in- 
terrupts take first priority, followed by the Teletype, reader, and punch. 

5.2.1 Instruction and Memory Tests - The instruction test portion of the Basic Exerciser performs tests 

on all operate group and memory reference instructions. The individual instructions are looped a random 
number of times before proceeding to the next test. The maximum number of loops made on any one test 
is 32,767. 

The adder is tested using two different methods. The first performs bit by bit tests on the adder 
using the ADD instruction. Besides checking for correct results after an addition, the link is tested during 
overflow and no overflow conditions. 

The second method, the "Add Random Pairs" test, tests the adder using one pair of random 
numbers (A and B) and their 1 's complement values (-A and -B), and the ADD instruction. These four 
values are added in various combinations, the results of which are compared against precalculated results. 
The precalculated results are obtained by adding the two pairs together using the TAD instruction. Four 
additions are made, the results of which are used in the test. The link is tested after each addition. If 
it is a 1 , a 1 is added to the result to simulate an end-around-carry . 

The numbers added and their sums are indicated in the listing using the following symbols: 

-B+(-A) = SUMNEG 
A+B = SUMPOS 

B-A = BMASUM 

A-B = AMBSUM 
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The values of A, -A, B and -B plus their sums are used to test the combinations of ADD's 
shown below. 

ADD SUM SHOULD EQUAL 

A+ B 

-B+ A 

-B + (-A) 

B - A 

(A + B) - A 

(B - A) -B 

(-A-B) +A 

(A - B) +B 

777171 + A 

A+ B - A 

A + B -A -A 

A + B -A -A -B 

A + B -A -A -B -B 

A + B -A -A -B -B + A 

A+ B -A -A -B -B+ A+ A 

A + B -A -A -B -B + A+A+B 

After completing one pass of the above tests, a second pass is made on the same tests. The 
second pass makes all "B" constants "A", and all "A" constants "B" before repeating. 

Immediately following the second pass, one random number and its Is complement is obtained 
and saved in APOS and ANEG, respectively. Bit of APOS is tested for equaling or 1 . If the value 
is 1, the bit remains unchanged, and the respective bit in the complement number is changed to equal a 
1 . The two numbers are then added together, the sum of which should equal all Os except for bit 0. If 
the ADD is successful, the program continues testing all other bit positions in the same manner. 

Example: (Bit altered) 

Step APOS Value ANEG Value 



SUMPOS 




AMBSUM 




SUMNEG 




BMASUM 




BPOS 


(B) 


ANEG 


(-A) 


BNEG 


(-B) 


APOS 


(A) 


APOS 




BPOS 




BMASUM 


(B-A) 


ANEG 




SUMNEG 


(-A -B) 


BNEG 




AMBSUM 


(-B + A) 


APOS 





1 ^77776 200001 

2 577776 600001 (bit altered) 

3 Add together. Result should = altered bit. 

101 111 in 111 111 110 
110 000 000 000 000 001 



^011 in in 111 111 111 

1 (end around carry) 



100 000 000 000 000 000 
The sum equals the altered bit position. 
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After completing the adder tests, the remaining memory reference instructions are tested. 
The lost test performed by the exerciser is the memory checkerboard test. This routine writes and reads 
four different checkerboard patterns similar to the Basic Memory Checkerboard program. The memory 
test is looped three times before program relocation takes place. 

After completing the memory checkerboard test, the program relocates the entire Basic Ex- 
erciser to the opposite 4K field. All memory reference instructions and memory locations used for testing 
are adjusted accordingly. All locations within the program which reference any memory location be- 
tween and 21 are not adjusted. These locations are used during program interrupts, autoindexing tests, 
etc., and must not be altered. Program interrupt is disabled while relocation is taking place. 

After relocation of the program is completed, the exerciser is automatically restarted at lo- 
cation 70 (or 10067). This location is tagged SEQUEN. The operator is able to determine the location 
of the program by observing MB bit 5. This bit will glow brightly when the program is in the higher 4K 
field, as compared to when residing in the lower 4K field. 

The Teletype BELL will ring once for each completed pass of the program. One pass is de- 
fined as the program performing all tests from each 4K field, and then relocating back to the field in 
which the program was first initiated. 

When operating the Basic Exerciser with program interrupt inhibited (ACS 1 up), the message 
"COMPLETE" will be printed after five complete passes of the program. This message Is printed after ten 
posses when ACS 4 (inhibit relocation) as well as ACS 1 Is up. This feature is included as a means to 
determine the number of successful passes completed by the program if it is to be run for extended periods 
of time. 

5.2.2 Pun ch, Read, Print Sequence - The instruction and memory tests will be interrupted, at a device 

rate, by the punch, reader, or Teletype. The data punched consists of the alphabet characters, followed 
by numbers through 9, with a space character being punched between each letter or numeral character. 
The reader will read the tope at punch speed, storing away any punched character. Frames of all Os are 
ignored. The punch and read sequence consists of 52 ASCII characters punched, read and stored away in 
an input buffer (tagged TTBUFA). After reading the 52nd character, the contents of TTBUFA are trans- 
ferred directly to another 52 - location buffer tagged TTBUFB. This second buffer is provided to enable 
the operator to stop the program and compare the contents of either buffer A or buffer B with the punched 
data on tape. Punch and read operation is halted after the 52nd character is read and stored. The con- 
tents of TTBUFB are then printed on the Teletype. The punch and read sequence continues immediately 
after the 52nd character is printed. The data punched and read should appear on the Teletype as the 
example below. 

ABCDEFGHIJKLMNOPQRSTUVWXYZ0123U56789 
ABCDEFGHIJKLMNOPQRSTUVWXYZ0123U56789 



MAINDEC-9A-D7AA-D 

The punch and read sequence generates 72 characters altogether, even though only 52 are punched, 
read and printed at one time. The alphabet and numbers sets with a space between each character enables 
a full line to be printed. The spacing also enables the operator to more easily detect a misprinted char- 
acter. Each group of 72 characters is separated by 8 blank frames. The group which is positioned in the 
reader is the current line being printed. A carriage return and a line feed is punched at the end of each 
group. The program will punch 6 extra blank frames between two groups, approximately every four- 
teenth group, to enable the slack between reader and punch to remain constant. 

5.2.3 Use of the Real Time Clock - The instruction and memory tests, and the punch, read and print 
sequence are both interrupted randomly by the real-time clock. When a clock interrupt occurs, all other 
operations are halted until the clock interrupt has been serviced. The program allows the clock to con- 
tinue incrementing for 1/2 second after the interrupt occurs. This is evident during every clock interrupt 
by observing MB indicators 12 through 17 incrementing. Immediately after the clock has incremented, an 
additional 1/2 second, it is reset to a new random value. This value is chosen by the program to ensure 
that the clock interrupts no sooner than 2 seconds, nor later than 9 seconds. The clock is again enabled 
after being reset to a new value, and the instruction test or read, punch and print sequence is allowed 

to continue from the point of interrupt. 

At times, the Basic Exerciser may appear to be caught in a loop after a clock interrupt occurs. 
The console indicators will show the clock and PIE as being disabled, and the punch, read and print 
sequence will be halted for several seconds. The program during this time is attempting to generate a 
number for the clock which falls within the 2 to 9 second limit. All operations will be resumed as soon 
as a suitable random value is found. 

The operator may disable the clock interrupts by restarting from location 26 with ACS 5 up. 

5.2.4 Interrupt Service Routine - Program interrupts by the clock, punch, reader or Teletype are all 
serviced by a common routine. A common routine for reentering the instruction test is also used. 

Locations through 6 are used to save the contents of the AC and PC immediately after an in- 
terrupt occurs. The contents of the AC are stored in the location tagged SAVAC. The contents of the 
link and PC are stored in the location tagged RJMP. The program then enters a routine which determines 
which of the four devices interrupted the program. This routine is tagged SRVINT. SRVINT will test for 
device flags in the following order: clock, Teletype, no-tape flags, reader, punch. The first device 
flag found to be set indicates the device which must be reinitiated by the program. 

Immediately after selecting the proper device, a routine is entered which will restore the con- 
tents of the link and AC at the time of the program interrupt. The routine is tagged RTNIT. RTNIT first 
restores the AC (from SAVAC); restores the link (by testing bit of RJMP); enables program interrupt; and 
then returns to the instruction test by a JMP indirect on the contents of RJMP. 
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The operator may disable program inferrupts by restarting from location 26 with ACS 1 up. 



5.3 Program and Operator Action 

See Sections 4.2 and 5.2. 



6. 



ERRORS 



6.1 



Error Halts and Description 



Reference the program listing for all error halts. 

All error halts are tagged EXXX, and are commented to aid debugging. Each test is self- 
contained, and may be looped. See Section 6.2.1 for looping instructions. 

Unless a solution is obvious from following the listing, the proper MAINDEC diagnostic for 
the device in error should be run. This should be necessary mainly when errors are caused by one of the 
I/O devices. The diagnostics for the I/O devices are listed below: 



Device 

Real-Time Clock 

Program Interrupt 

Punch 

Reader 

Teletype 



Program 

Instruction Test Part 1 
Instruction Test Part 1 
Punch Test (9A-D2DB) 
Reader Test (9A-D2CB) 
TTY Test (9A-D2BB) 



Incorrect operation of the real-time clock will appear as clock interrupts occurring sooner 
than 2 seconds apart, or greater than 9 seconds, or possibly no clock interrupts will occur. Also, after 
a clock interrupt, the clock should not increment further for any longer than approximately 1/2 second. 

Printing of incorrect data may be caused by the data being incorrectly punched, read, or 
printed. Storage registers, and their locations in the program, which the punch, read, print sequence 
use are listed below. 

Function 



Tag 

SAVAC (7643) 
RJMP (7644) 
WORK (7600) 
GOPNCH (6763) 
SETCLK (6604) 

CLKSET(6621) 
TTOUT (7326) 
TTIN (7327) 



Saves contents of AC after a program interrupt. 

Saves contents of PC and link after a program interrupt. 

Bit 1 if set indicates TTY is in use. 

Contains contents of PC at exit from punch routine. 

Routine which sets a random value in clock register 7 when 
program interrupt is disabled. 

Same function as SETCLK, but is used only after a clock interrupt, 

Location pointer for TTBUFB when printing. 

Location pointer for TTBUFA when reading. 



8 
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Tag Function 

TTBUFA (7361 to 7444) Storage buffer for characters read. 

TTBUFB (7445 to 7531) Storage for characters to be printed. Contents should equal 

TTBUFA. 

STORE (7336) Contains character punched. 

SETTY (7037) Routine which is entered after 52 characters have been punched 

and read. Sets up TTBUFB before printing. 

GENRAN (6101) Random number generator used when PI is disabled. 

RANGEN (6133) Same as GENRAN, but used only after an interrupt. 

When data is incorrectly printed, stop the program during print-out. This will enable both 
TTBUFA and TTBUFB to remain unchanged. TTBUFA will be changed as soon as reading begins. 

The data punched is in ASCII mode, and one printed line is indicated on the paper tape by 8 
blank frames separating each line. The punched data starts with character A (301) and ends with a line 
feed (212). A space (240) is punched between all alphabet and number characters. 

The line of punched characters in the reader is the line currently being printed. The operator 
may inspect the tape for an incorrect character punched. If it appears correctly on the tape, it may have 
been read or printed incorrectly. The characters read are stored in a 52-word buffer beginning at loca- 
tion 7330 (tagged TTBUFA). The characters being printed are stored in a 52-word buffer beginning at 
location 7414 (tagged TTBUFB). If the program was stopped during printing, these two buffers should con- 
tain exactly the same information. The first character read or printed is stored in the first location of 
either buffer. One character is stored per location. If the data was read incorrectly, the contents of 
TTBUFA will not equal the last 52 characters on the tape. If the data on tape, and in TTBUFA and TTBUFB 
are equal, the teleprinter may be at fault. 

6.2 Error Recovery 

Press CONTINUE to receive further error halts or to continue testing, as indicated by the 
listing. 

Recovery from error halts in the Add Random Pairs test is accomplished by pressing CONTINUE 
one or more times, depending on the type of error encountered. Pressing CONTINUE after a halt due to 
an incorrect sum will result in a second halt. The AC will equal the incorrect sum at the first halt, and 
the sum used for comparison at the second halt. If the error halt is the result of a LINK error, the next 
test in sequence will be executed. 

Recovery from memory checkerboard errors is accomplished by pressing CONTINUE four times. 
The memory test is restarted after each error halt. 
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The contents of the AC after each halt will equal the information below. 

C (PC) C (AC) 

6351 The address at which the memory error occurred. 

6353 What the location should equal (000000 or 111111). 

6355 The data as read. 

6362 The pattern control word used. 

Bit suppression may be accomplished by placing the corresponding ACS up after the halt at 
location 6354. Place all other ACS down, press CONTINUE, place all ACS down again, and then 
restore ACS through 5 if needed. The bits selected will not be tested again during the memory test. 
The selected bits must be reselected after each error halt. 

The memory checkerboard test may be continuously looped by restarting from location 26 with • 
ACS 3 up. Program relocation will not take place. 

6.2.1 Looping on Individual Tests - Looping on individual tests, except for the interrupt routines. 
Add Random Pairs test and Memory test, is accomplished by placing a JMP instruction in the first loca- 
tion of the next test in sequence. The address in the JMP instruction should equal the first location of 
the test to be looped. Restart the program at location 26, if program interrupt is to be enabled. Restart 
at the first location of the test to be looped, if interrupts are not wanted. 

The complete series of tests for any one instruction may be looped by placing a NOP in the 
location which contains ISZ WORK3. This instruction appears at the end of each series of tests for each 
instruction. Restart at location 26, or at the beginning of the test to be looped. 

6.2.2 Looping on Add Random Pairs - The complete series of tests may be looped by restarting from 
location 26 with ACS 2 up. 

The individual tests may be looped by changing the LAW instruction, appearing after each test, 
to a JMP. For example, to loop on (A-B) + B = A (tagged AMBPBT), change the LAW AMBPBT instruction 
to JMP AMBPBT. Restart from location 26, or AMBPBT. 

6.2.3 Looping on Memory Checkerboard - Place ACS 3 up, and restart from location 26. 

6.2.4 Error Print-outs - The program continually tests for reader or punch no tape indicators being 
set. When either indicator is set the message "R NO TAPE", or "P NO TAPE" will be printed. The 
program continues on in sequence after either print-out. 



10 
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7. OPERATING RESTRICTIONS 

All MAINDEC diagnostics which apply to a basic PDP-9 configuration should be run before 
attempting to run this program. 

8. MISCELLANEOUS 

8. 1 Execution Time 

Approximately 1-1/2 minutes are required to execute all tests for one 4K field. 

9. PROGRAM DESCRIPTION 



The Basic Exerciser performs tests on all operate and memory reference instructions plus core 



memory, 



During normal operation (all ACS down) the program exercises the real-time clock, punch, 
reader. Teletype and program interrupt while the instruction test portion is running. The MB indicators 
will change according to the portion of the instruction test currently being executed. When a clock 
interrupt occurs the MB bits 12 to 17 will increment for 1/2 second (due to clock counts), after which 
the MB indicators will return to their original state upon re-entering the instruction test. 

When the punch, read and print sequence is operated with the instruction test inhibited 
(ACS up) the MB will indicate a constant 600131 (JMP 131). On the listing this is written as JMP. 
at location 131 . At location 130 the program interrupt is enabled, and all device interrupts will cause 
an interrupt immediately after the execution of the JMP. instruction. The interrupts are handled in the 
same manner as if the instruction test portion were operating; the difference being that the interrupt ser- 
vice routine (RTNIT) always returns to location 131 after reinitiating the device which caused the in- 
terrupt, instead of returning to the instruction test portion. 

The instruction test portion of the program consists of MAINDEC 9A-D01 A and D02A (Instruc- 
tion Test, Parts 1 and 2) condensed onto one tape. Refer to the program listing or flow chart for the 
testing sequence. 

The memory test is executed after the instruction test portion is completed. This test is similar 
to MAINDEC 9A-D1AA Basic Memory Checkerboard Test. This test is performed three times, after which 
a routine is entered which relocates the Basic Exerciser to the opposite 4K field in core memory (unless 
ACS 4 is up). The Exerciser is automatically restarted after relocation is completed. 

If no errors occur, the Basic Exerciser will run until stopped by the operator. 

10. LISTING 
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(usr.x9 



PAGE 



/pnp- 



l(!lt'HP)0 



WP'0PI4 
0('-005 



0(^0?2 

0i'0?2 
0C0P3 
0^024 
0t'0?5 
0f'0?6 
0f^0?7 
0(''030 

0p0?;i 

0(^032 
0^*033 
0H034 
0^*035 
0f^036 
0f037 
(;' 4 
Ht'041 
0f042 
0f 043 
0('044 
0^045 
0P046 
0C047 
0t*050 
H('05l 
0C052 
0f''053 
0(^054 
0P'0'>5 



000000 

741000 
740040 

4 76 4 3 
200C^00 
047644 
606'=.36 

740000 
74000H 

740000 

740040 



107171 
107?03 
107171 
740040 
14763'' 
14731? 
70330? 
147631 
146763 
206676 
047327 
047326 
447326 
167'^26 
207326 
546677 
741000 
600^36 
206676 
047326 
206124 
04731.'^ 
777737 
04724? 
447313 
167313 
44724? 
6000'52 



.TITl E BASFX9 
BASIC EXERCISFR 

. AHS 

.Lnc 



/ 

/PnP-9 INSTRUCTION TEST (cnNDEMSED) 

/ 





H 




SKP 


f 1 


HAl.T 




OAC SAVAC 




LAC <7> 




OAC RJMP 




JMP SRVINT 


/ 




MOPl = N()P 




MUP2=N0P 




M0P3=NnP 




MALT=HLT 




/ 


,'-\ 




.mc (2? /' 


/ 


'^■.._,,-'' 


MEG IN 


JMS PNIEOR 




JMS PNMARK 




JMS PNLEOR 




HALT 




n^M W0WK4 




n;^M RRFAK 




HAT 




nj?M WOWK 




n^M GOPNCH 




LAP DATARL 




HAG TTIN 




MAC TTOUT 




IS'' TrouT 




Dj^m* TTOUT 




LAG TTOUT 




SAD FNOBIN 




SKP 




JMP .'"=> 




LAG OATARL 




OAC TTOUT 




LAG FNOTPL 




OAG WDGNT 




LAW -41 




OAG GRLF 




IS? WDGNT 




n2M» wncNT 




IS? GRLF 




JMP .-'S 




.FJEGT 



/ERROR. PC INCREMENTED BY 
/? AT TIME OF P. I , 
/SAVE AC 

/SAVE PC AND LINK 

/SERVICE INTERRUPT 



/PRESS CONTINUE TO 

/CLEAR GOPNCH 

/SETUP POINTERS 



/CLEAR TTY BIN 



/RESTORE POINTER 



/CLEAR ERROR TABLE 



mA-^FVV 



PACt 



^Piflbb 


700002 


lUF 




\Al'}A'=>7 


7'S000C1 


CLA 




Ht^H60 


700104 


RSA 




H P M 6 1 


7 5 H 4 


1 AS 




Hl?P)62 


'307'=<47 


ANin 


KSK 


i^U'H63 


741200 


SNA 




0r'«,S4 


700P04 


PSA 




k1("M(^5 


2001 30 


LAC 


INITPI 


H(^H(<.6 


046763 


HAC 


noPNCH 


t1 1'^ 6 7 


047644 


PAT 


RJ-^P 


Vir07« 


207617 


SEOUFN LAC 


KSKP 


0C 071 


040001 


HAH 


1 


H(*072 


206^^33 


I AC 


SAV3 


m'073 


04 00 3 


HAH 


3 


0i'074 


207652 


LAC 


SAV4 


HC075 


040004 


OAT 


4 


H('0 76 


2P'6S34 


LAC 


SAV5 


0( 077 


04000'5 


RAC 


5 


n u- 1 Pi 


2fl653S 


LAC 


SAV6 


i^ClCil 


040006 


HAC 


6 


kli 1(^2 


207(^'30 


1 AC 


KHALT 


0(-103 


040002 


HAC 


7 


0('l(i^4 


447635 


IS? 


W0WK4 


0iMt^5 


750004 


LAS 




HC 1(716 


507'=i56 


ANn 


Kl'^K 


0P1H7 


741200 


SNA 




0('110 


106604 


JMS 


SETCLK 


tlrill 


750f^04 


LAS 




^tii2 


74]10C^ 


SPA 




^^( 113 


600131 


JHP 


INMIT 


1.0 tm 4 


740011^ 


PAL 




0C-115 


7401 00 


SMA 




01-116 


700042 


IQM 




0^117 


750004 


I AS 




0ri?0 


507321 


ANP 


K1I10K 


^t 121 


740200 


S^A 




0f'l?2 


6PI2360 


JMP 


P AM ADD- 2 


0^ 123 


750004 


LAS 




00124 


507553 


ANn 


K40K 


0fl25 


740200 


S«!A 




00126 


606055 


JMP 


r64i+3 


00127 


600133 


JMP 


Il)TST-P 


0O1?0 


00670^ 


/ 

INITPI PNSTRT 

/ 

/IN'HIBIT IMSTRDCTION TFST 






00131 


700042 


INHIT lOM 




00132 


6001 32 


JMP 


, 






.F.JECT 



/PI OFF 

/INIT1ALI?F READER, PUNCH 

/IF ACS 7 OR 8 A 1» DON'T PUNCH 

/INITPI = PNSTRT 

/(RJMP) r PNSTRT 
/RESTORE ADDRESS 1 (SKP) 

/RESTORE ADDRESS 3 

/RFSTORE ADDRESS 4 

/RESTORE ADDRESS 5 

/RESTORE ADDRESS 6 

/RESTORE ADDRESS 2 (HALT) 

/PASS COUNTER 

/CHECK ACS 5 FOR INHIHIT CLOCK 

/INHIBIT INST. TFST 

/CHECK FOR INHIBIT PI 
/PI ON 



/CHECK LOOP ON RANDOM ADD 
/LOOP 



/CHECK LOOP ON CHECKERHQARD 
/LOOP 



/WAIT FOR PI 



HA'^EX*^ PACE 


3 


t t 1 1 




H(n33 


1P)610? 


k5('"174 


1{'612<S 


1^1^135 


y-JB^^l 


n(n:^6 


7(^01 iPi 


0^■l77 


740P0P' 


HC140 


74004PI 


0(^141 


750(^01 


0(^142 


700?l(^ 


fe)t"l43 


740P0P' 


0(^144 


740(^4^1 


0P'14 5 


750001 


0(^146 


7003l(^ 


0f'l4 7 


740P00 


|4^150 


740(^40 


vJt^lSi 


750001 


0( 1'52 


700010 


0^153 


740?00 


0P154 


740040 


ai^i'ss 


447<S34 


(' 1 *> 6 


600135 


0f«l«^7 


10610? 


0P^1(«.0 


10612<^ 



/TFST 
/ 



lOTST 



K24 
/ 



t-25 
/ 



F2^ 
/ 



F27 
/ 



CLFAFv AC AT FVFNT TiMt 1 WITH MB 14. 

/GFT NO. FOR LOOP 
/AC = 7777777 



JMS GEMRAN 
JMS TKNO 
CLA'CMA 
70011 
S^A 
HAl T 

TLA tCMA 
700210 

HALT 

ClA 'CmA 
700310 

MALT 

clajcma 

700010 

SiA 

HALT 

IS? WQf'K? 
JMP lOTST 
JMS GENRAN 
JMS CKMO 
.EJECT 



/AC = 

/ERROR. AC NOT 

/AC = 777777 

/AC = 

/ERROR. AC NOT 

/AC = 777777 

/AC = 

/ERROR. AC NOT 



/AC 



777777 



/AC = 

/ERROR. AC NOT 

/CHECK DONE LOOPING 
/LOOP 

/GFT NO, FOR NEXT TEST 



HASEXV PACE 4 

M t t 



i/l f I (S 1 

thrifts 
0("164 



HP' 166 
MP167 
Ht^l7(3 



0(''171 
k1P172 
fe)r'"173 
ii(' 17 4 



H('175 
«H7 6 
0(177 
0(^2PI0 
0f201 
0P^2Pi2 
0(2(^3 

'4r204 

0(''2P'5 

1^ 2 P" 6 

0(''2PI7 
0P'210 
0(^211 
0P212 
0(^213 
01^214 

0C'-215 
0^'216 

0r'2i7 
0r2?0 

0('2?1 
0P'2?2 



744000 
100P04 
7414(;|Pi 
740040 



74400? 
100204 
740400 
740040 



754000 
100207 
740400 
740040 



75400? 
100?15 
751400 
740040 
447(S34 
600161 
600223 

000000 
703344 
620204 

000000 

200207 
347554 
040207 
703344 
620207 

000000 

200?!'^ 
507627 
040215 
703344 
62021^ 



/TFST 
/ 

TSriBW 



F2H 
/ 

/T^ST 
/ 



F29 
/ 

/TFST 
/ 



F30 
/ 

/TEST 
/ 



F31 



/ 

DBRX 



/ 

riBRXX 



lOT 3344 (flBR). I. 







OQRXXX 



nil /LINK 

. i n* . IJHWX JMP 22 3 

S/l 

HALT 



/ERROR. ORR FAlLEn; LINK NOT 



lOT 3344 (HBR), < s 1 

HLL ;CML 
JMS OBPX 
SNL 
MALT 

lOT 3344 (OBR), L s 

HLLICLA 
JMS OBRXX 
SNL 
MALT 

lOT 3344 (HBR). L = 1 

CLLIHML :CLA 

JMS OBRXXX 

CLA'S^L 

HALT 

IS? W0RK3 

JMP TsnsR 

JMP nPRAT 



703344 
JMP» DHRX 



LAC PBRXX 

TAD K4'^0K 

DAP PB^^XX 

703344 

JMP» UqRXX 



LAC PBWXXX 

ANn M4f^0K 

OAC OBt^XXX 

70:^344 

JMP» OPRXXX 

.EJECT 



OBR FAILED. LINK NOT 1 



/L = 1 
/ERROR, 

/AC, L s 

/ERROR. ORR FAILED, LINK NOT 1 



/L 



AC s 



/ERROR. DRR FAILED, LINK NOT 

/CHECK DONE LOOPING 

/LOOP 

/START INSTRUCTION TFST 

/LFAVE LINK ALONE 
/ORR 



/SET LINK TO A ONE 
/DRR 

/CLEAR LINK 
/DBR 



HASEy^ PAGE 


5 


r t 1 1 




i1f^223 
v)(^224 
^^"225 


10610? 
10612^ 

mill 


k)t^226 
0('2?7 


74l(^0W 
740040 


t4("230 
^)t^23l 
v4f232 


7S0fl0M 
740200 
740040 


^lf233 
iaf'^234 
^^^'235 
Ht'236 


7*50000 
740100 
741000 
740040 


^('237 
i<1t'240 
^P241 


750000 
741100 
740040 


^3^24 2 

HP243 
C1(24 4 
m2'^5 


750000 
741200 
741000 
740040 


0f246 
1.4(^247 
01^250 


744000 
741400 
740040 



00251 
0P^252 
01^253 
0t'254 



744000 
740400 
741000 
740040 



/TFST 


OPFRaTF GROUP 


/ 






oprat 




JMS GE^iRAN 
JMS TKNO 


nPFRAl 




I AW 17777 


/ 




SKP 


F3? 




HALT 


/ 






/TFST 


CLA 


- sza 

CLA 
Si«A 


f:33 




HALT 


/ 






/TFST 


SMA 


CLA 
SMA 
SKP 


f 34 




HALT 


/ 






/TFST 


SPA 


CLA 

SPA 


r3^ 




HALT 


/ 






/TFST 


SNA 


CLA 
SNA 
SKP 


F3^ 




HALT 


/ 






/TFST 


SjfL 


- CLL 

CLL 

SZL 


F37 




HALT 


/ 






/TFST 


SNL 


CLL 
SNL 
SKP 


F3H 




HAl T 
.EJECT 



/GET NO. FOR LOOP ON TFST 

/AC = 777777 

/TFST SKP 

/ERROR; SKP FAILED TO SKIP 

/AC = 

/ERROR; CLA OR S?A FAILEO TQ SKIP 

/AC = 

/ERROR; SAME SKIPPED 



/ERROR; SPA FAILED To SKIP 



/error; SNA SKIPPED 



/LINK = 

/error; SHL FAILED TO SKIP OR 
/CLL FAILED TO CLEAR LINK 



/LINK = 



/ERROR; SNL SKIPPED 



t<ASEX9 



PAGE 



1 1 1 1 







/TFST 


CLA 


CLL 




\liV235 


754PI0R 






CLASfLL 




id ('■256 


740P0P1 






S2A 




IAV2'='7 


740040 


F39 

/ 

/TFST 




HALT 








CLA 


CLL 




Vlt'Pf^P) 


7«>4f0P' 






CLAtCLL 




^C2f<l 


74140P' 






Si«L 




^"2^? 


740(14(^ 


F40 

/ 

/TFST 




HALT 








SKP 


SPA 




Vii'2f>Z 


750(^00 






CLA 




;i(^264 


741100 






SKP'SPA 




^1P^265 


740040 


F41 

/ 

/TFST 




MALT 








SKP 


SNA 




^^^'266 


750000 






CLA 




iap'267 


741P00 






SKP!SNA 




^IC'270 


741000 






SKP 




Hf 271 


740040 


F4? 

/ 

/TFST 




HALT 








SKP 


SZL 




<JsV'212 


744000 






CLL 




idi'27Z 


741400 






skpjShl 




0P274 


740040 


F43 

/ 

/TFST 




MALT 








SPA 


SNA 




V5P275 


750000 






CLA 




t4f 276 


741300 






SPAISNA 




k^C277 


741000 






SKP 




MC^SPia 


740040 


F44 

/ 

/TFST 




HALT 








SPA 


S2L 




HCSPtl 


754000 






CLA'CLL 




^C'3P'2 


741500 






spa:s?l 




0fr'3PI3 


740040 


F45 

/ 

/TFST 




MALT 








SNA 


S2L 




0C^3(''4 


754000 






CLA!CLL 




i^(>"3P'5 


741600 






SNASSZL 




01^306 


741000 






SKP 




t3P'307 


740040 


F46 

/ 

/TFST 




HALT 








SNA, 


, SPA, SKP, 


Si?L 


^e310 


754000 






CLAtCLL 




VI (^311 


741700 






SKP.'SPAJSZL 


!SNA 


t^(^312 


741000 






SKP 




0^313 


740040 


P47 




MALT 
.EJECT 





/AC, LINK a 
/error; AC NOT 

/AC AND LINK s 
/FRRORJ LINK NOT 

/ERROR; SKPJSPA FAILED TO SKIP 

/ERROR; SKPlSNA SKIPPED 

/LINK s 1 

/ERROR; SKP'SZL FAILED TO SKIP 

/error; SPA5SNA SKIPPED 

/LINK AND AC s 

/error; SPA!S2L FAILED TO SKIP 

/LINK AND AC s 

/ERROR; SNAISZL SKIPPED 

/AC AND LINK s 

/error; snaispa!Skp!Szl skipped 



'USEX9 PACE 


7 


r 1 1 1 




01^314 
01^315 

0(^316 


75000*^ 
740300 
740040 


0P317 

0(^3?1 
0{^3?2 


7S400P) 
740500 
741000 
740040 


0P3P3 
0(^3?4 

0P'3?'> 


754000 
740600 

740040 


0('3?6 
0f3?7 
0(^330 


754000 
740700 
740040 


0P331 
0f*33? 
0(^333 
0(^334 

^(^335 


744000 
74000? 
741400 
741000 
740040 



/TFST SMA 



0P"336 
0(^337 
0("340 
00341 
^0342 



0(^343 
00344 
0(M45 
0(^346 
0P347 



0(^350 
0(^351 
0P352 
0('353 
0('*354 
0(^355 



744000 
74000? 
744000 
741400 
740040 



744000 
74000? 
74000? 
74140(^ 
740040 



744000 
740'''10? 
74400? 
741400 
741000 
740040 



f:4H 

/ 

/TFST 



F49 

/ 

/TFST 



F50 

/ 

/TFST 



r5i 
/ 

/TFST 



F5? 

/ 

/TFST 



F5:^ 

/ 

/TFST 



F5'i 

/ 

/Tf ST 



F5'^ 



SMA 



SifA 



SMA 



CML 



CLL 



CML 



CLL 



S^A 

CLA 

sma;si<a 

HALT 

SNL 

CLA I CLL 
SMA5SNI 
SKP 
HALT 

SNL 

CLA'CLL 

S«?A!SNL 

HALT 

S2A SnL 
CLA'CLL 
SMA!S2A:sNL 
HALT 

- S2L 

CLL 

CML 

S2L 

SKP 

HALT 



CLL 
CML 
CLL 

HALT 



CLL 

CML 
CML 
Sii 
HALT 

Ci^L 

CLL 

CML 

CLL!CML 

SZL 

SKP 

HALT 

.EJECT 



/error; SMA S2A FAILED TO SKIP 



/LINK ANn AC s 



/ERROR; SMAjSNL SKIPPEO 



/ERROR; SZA'SNL SKIPPEO 



/ERROR; SMA!S2A!SNL FAILED TO SKIP 



/LINK = 
/LINK = 1 



/ERROR; SzL SKIPPED OR 
/CML FAILED TO SET LINK 



/LINK = 

/LINK 5 1 

/LINK = 

/ERROR; CLL FAILED TO CLEAR LINK 



/LINK = 

/LINK r 1 

/LINK = 

/ERROR; CML FAILED TO SET LINK 



/LINK = 1 
/LINK = 1 
/LINK = 1 



/ERROR; CLL'CML FAILED TO SET LINK 



HASEX9 



PAGE 8 



1 1 1 1 







/TFST 


CLL 


CML 


^^('356 


744000 






CLL 


i^f 3*^7 


74000? 






CML 


(^('360 


744000 






CLL 


iAi'Z^l 


74400? 






CLL ;CML 


Hf'3ft2 


741400 






S2L 


t^P3ft3 


741000 






SKP 


l/l('3^4 


740040 


F56 

/ 

/TrST 




HALT 






SKP 


S£L 


^P3^5 


744000 






CLL 


t^C366 


741400 






SKPISifL 


fe)l^3ft7 


740(^40 


F57 

/ 

/TFST 




HALT 






Si?L 


SNA 


»^ 4^370 


750000 






CLA 


0(^371 


74400? 






CLLICML 


00372 


741600 






SELSSNA 


0J7 373 


741000 






SKP 


0('374 


740040 


F58 

/ 

/TFST 




HALT 






Si'L 


SPA 


t^C375 


ysBdgpt 






CLA 


W(- 376 


74400? 






CLLtCML 


01^377 


74150P) 






SZL!SPA 


(^(^^400 


741000 






SKP 


0CM01 


740040 


F59 

/ 

/TFST 




HAl T 






CLA 


CLL CML 


MO'402 


75400? 






CLA'CLL!CML 


0(M0 3 


741400 






S/?l 


1^1^404 


74100^1 






SKP 


(4(^4(^5 


740C/I4P) 


F60 

/ 

/TFST 




HALT 






CLA 


CLL CML 


'^ f 4 PI 6 


754C^0? 






CLA'CLL'CML 


0^*407 


740?0PI 






S2A 


0^^410 


740040 


F61 

/ 

/TFST 




HALT 






SNL 


Si?A 


('■ 4 1 1 


75400? 






CLA'CLL'CML 


0( 412 


740600 






SNL !S2A 


0(^413 


740040 


F6? 

/ 

/TFST 




HALT 






SNl 


SMA 


0fM14 


75400? 






CLAjCLLtCML 


0CM15 


740500 






SNL !SMA 


i^(M16 


740040 


F6.1 




HALT 
.EJECT 



/LINK « 

/LINK = 1 

/LINK s 

/LINK X 1 



/error; CLLJCML failed to SET LINK 

/LINK = 

/ERRORJ SKP!S2L FAILED TO SKIP 



/AC r 
/LINK s 1 



/ERROR; S2L!SNA SKIPPED 



/AC = 
/LINK a 1 



/ERROR; S?L!SPA SKIPPED 
/AC s 0, LINK « 1 
/ERROR; LINK NOT 1 

/AC r 0, LINK a 1 

/ERROR; AC NOT 

/AC = 0, LINK = 1 

/FRRORi SNL'SgA FAILED TO SKIP 

/AC = 0, LINK s 1 

/ERROR; SNLJSMA FAILED TO SKIP 



'^ASEX9 PAGE 


9 


1 1 1 1 




0f«4l7 
00420 
0(^421 


754002 
740700 
740040 


00422 
00423 
0f4?4 
00425 
00426 
00427 


750000 
740001 
750000 
741200 
74l00Pt 
740040 


00430 
01^431 
00432 
00433 
0f"434 


750000 
740001 
741100 
741000 
740040 



0("435 
0t'436 
0(»437 
0t''440 



00441 
0(^442 
0CM43 
0f 444 
00445 
00446 



0('447 
0('450 
0(5^451 



750000 
740001 
741200 
740040 



750(^00 
740001 
740001 
741200 
741000 
740040 



750PI01 
741200 
740040 



/TFST SNL 



F 64 

/ 

/TFST 



F6^ 

/ 

/TFST 



F 6(S 



CMA 



CMA 



S2A SMA 
CLAJCLLICML 
SNI iS^AlSMA 
HALT 

CLA 
CLA 
CMA 
TLA 
SNA 
SKP 
HALT 

SPA 
CLA 
CMA 
SPA 
SKP 
MALT 



/TFST CMA SNA 
CLA 
CMA 
SNA 
HALT 



r67 

/ 
/TFST 



F68 

/ 

/TFST 



F6P 



CMA 



CLA 



CLA 
CMA 
CMA 
SNA 
SKP 
MALT 



CMA 

CLA :CMA 

SNA 

HALT 

.EJECT 



/AC = 0, LINK = 1 

/ERRORJ SNL!SEA!SMA FAILFD TO SKIP 



/AC = 
/AC = ONFS 



/ERROR; CLA FAILFO TO CLEAR AC 



/AC = 
/AC = ONES 



/ERROR; SPA SKIPPED OR 

/CMA FAILED TO SET AC RIT d 



/AC = 
/AC = ONES 

/ERROR; SNA FAILED TO SKIP 

/OR CMA FAILED TO SET ANY AC BIT 



/AC = 
/AC r ONES 
/AC = 



/ERROR; CMA FAILED TO 
/COMPLEMENT AC TO 



/AC 



ONES 



/ERROR; CLASCMA FAILFO TO 
/SET ANY AC BIT 



'USEX9 PAGE 


10 


t t t t 




H^«4*52 
H(M*;3 
HfM=;4 
i;)l^4S5 


750001 
740?0Pl 
741000 
740040 


Ml'456 
0fM^7 
HC^460 


750001 
7401 00 
740040 


0c;'4fr2 
H(M<^3 


750001 
741100 
741000 
740040 


Hf^465 
0P4ft6 
i^P'4^7 


750001 
741200 
740040 


Hi'i4 70 
Hf47l 

^(^472 
0f''473 


750001 
741:^00 
741000 
740040 


H('47 4 
Hf 47 5 

l^f-4 76 
0f"477 


75400:^ 
741700 
74ll/'00 
740040 


01/1500 
vlC'5Hl 
HP'5P'2 


750001 
740.'^00 
740040 


0O'5Pt3 
ia^'5pi4 

v()C>5C^5 


75400:^ 
740700 
740040 


■-1f^5(l7 
(^("510 
1^1^511 
tat'512 


750001 
740000 
740001 
740200 
740040 



/TFST Si^ 



F70 

/ 

/TFST 



F71 

/ 

/TFST 



F7? 

/ 

/TFST 



F7:^ 

/ 

/TFST 



F74 

/ 

/TFST 



F75 

/ 

/TFST 



F76 

/ 

/TFST 



F77 

/ 

/TFST 



F7P 
/ 



CLAJCMA 
SHA 
SKP 
HALT 



SMA 



HLAJCMA 

SMA 

HALT 

SKP SPA 

TLAiCMA 
SKP!SPA 
SKP 
HALT 

SKP SNA 

CLAICMA 
SKPiSNA 
HALT 

SPA SNA 

CLA'CMA 
SPA!SNA 
SKP 
HALT 

SKP SNA SPA 

CLA'CMAtCLLSCML 

SNAjSPAiSKPjSEL 

SKP 

HALT 

SMA !S^A 

HLA'CMA 
S M A • S ? A 
HALT 

SMA S2A SNI 

rLA'.rMAtCLL'.rML 
SMA ;Si?A !SNL 
HALT 



NOP 



CLA !CMA 

NOP 

CMA 

S^A 

HALT 

.EJECT 



/AC r ONES 

/ERROR; S2A SKIPPED 

/AC = ONES 

/ERROR} SMA FAILED TO SKIP 

/AC = ONFS 

/ERROR; SKP'SPA SKIPPED 



3^. ^ 



\ it 



Pf, r^n^: 



/AC = ONES 

/ERROR; SKPISNA FAILED TO SKIP 

/AC s ONES 

/ERROR; SPA'SNA SKIPPED 

/AC = ONES, LINK x l 

/ERROR; SKP!SNA?SPA!SiL SKIPPED 

/AC r ONES 

/ERROR; SMA!S2A FAILED TO SKIP 

/AC = ONE, LINK s i 
/ERROR; SMA!S2A!SNL 

/AC = ONES 

/AC = 

/error; NOP ALTERED THE AC 



HASE^y PAGE 


11 














t 1 1 1 

00513 
00514 
00515 
00516 


750000 
740000 
740200 
740040 


/TEST 

E79 


NOP 


CLA 
NOP 
S2A 
HALT 






/AC X 

/ERROR; NOP SET AN AC BIT 


00517 
00520 
0(^521 
00522 


744002 
740000 
740400 
740040 


/TEST 

E80 

/ 

/TEST 

E81 

/ 

/TEST 

E82 

/ 

/TEST 

E83 


NOT 


CLLjrML 
NOP 
SNL 
HALT 






/LINK s 1 

/ERRORJ NO CLEARED THE LINK 


00523 
00524 
00525 
00526 


744000 
740000 
741400 
740040 


NOP 


CLL 
NOP 
S2L 
HALT 






/LINK s 

/ERROR; NOP SET THE LINK 


00527 
00530 
00531 


750000 
740201 
740040 


S2A 


CMA 
CLA 

S^AICMA 
HALT 






/AC = 

/AC = ONES 

/ERROR; S2A FAILED TO SKIP 


0C^532 
0f^533 
00534 
00535 


750001 
750200 
741000 
740040 


S2A 


CLA 

CLA'CMA 
S2AJCLA 
SKP 
HAl T 






/AC = ONES 
/AC = 

/ERROR; S2A SKIPPED 


00536 
00537 
00540 


744000 
741402 
740040 


/ 

/TEST 

E84 

/ 

/TEST 

E85 

/ 

/TEST 

E86 


S2L 


CML 
CLL 

S2L!CML 
HALT 






/LINK s 

/ERROR; S2L FAILED TO SKIP 


00541 
00542 
00543 
00544 


744002 
745400 
741000 
740040 


SEL 


CLL 

CLLICML 

SgL'CLL 

SKP 

HALT 






/LINK s 1 

/ERROR; S2L SKIPPED 


00545 
00546 
00547 
00550 


754003 
755500 
741000 
740040 


SKP 


S2L SPA 

CLA'CMA ! 

SKP5S2L! 

SKP 

HALT 

.EJECT 


CLA 
!CLL! 

ISPA! 


CLL 
ICML 
ICLA! 


/AC = ONES, LINK s 1 
ICLL /AC r 0, LINK s 

/ERROR; SKP!S2L!SPA SKIPPED 



HASEX9 PAGE 


12 


1 1 1 1 




0C551 


7'54«0? 


1^(^552 


744601 


v^(''553 


740PI40 


HP"554 


750001 


W(''555 


751PI0C^ 


/^556 


740(100 


Id f 55 7 


740P00 


i3('5ft0 


740040 


HC561 


750000 


i^C5ft2 


751001 


i^C'5ft3 


740000 


0r5A4 


740001 


0t^565 


740P00 


0^566 


740040 



/TFST S^A 



00567 
0(^570 
0(^571 
0P572 
0P573 



0^^574 
00575 
0C?'576 
0('577 
0f'600 
0f''601 
0C/602 
0f''603 



0('604 
00605 
0(^606 
0C'60 7 
00610 
611 
00 612 
00613 

0(^614 
00615 
0P-616 
00617 



744000 
74500? 
740000 
740400 
740040 



750001 
740001 
740001 
740001 
740001 
740001 
740200 
740040 



74400? 
74000? 
74000? 
74000? 
74000? 
74000? 
741400 
740040 

447634 
600?25 
10610? 
1061 26 



F87 

/ 

/TFST 



F8H 

/ 

/TFST 



F89 

/ 

/TFST 



F90 

/ 

/TFST 



CLA 



SKP 



SKP 



CMA 



F91 

/ 

/TFST CML 



F9? 
/ 



SNl CMA CLL 
CLA!rLL;CML 
S2A!SNL:cMA!cLL 
HALT 

SKP 

CLA!CMA 

SKP5CLA 

NOP 

S^A 

HALT 

CLA CMA 

CLA 

SKP!CLA!CMA 

NOP 

CMA 

SZA 

HAl T 



CLL CML 

CLL 

SKPjCLL'CML 

NOP 

SNL 

HALT 

SEPIFS 

CLA JCMA 

CMA 

CMA 

CMA 

CMA 

CMA 

S2A 

HALT 

SERIFS 

CLL'CMI. 

CML 

CML 

CML 

CML 

CML 

S2L 

HALT 



IS? 
JMP 
JMS 
JMS 



W0«K3 
OPTRAT 
GENRAN 
CKMO 



/AC = 0, LINK ' 1 
/AC»ONFS. LINK «0 
/ERROR. SiAJSNL FAILED TO SkP 



/AC = ONES 
/AC = 



/ERROR. CLA FAILED TO CLEAR AC 



/AC = 
/AC s ONES 



/ERROR. CLAjCMA FAILED TO 
/COMPLEMENT THE AC 



/LINK s 
/LINK = 1 



/ERROR. CLL'CML FALEO TO SET THE LINK 



/AC = ONES 

/AC = 

/AC s ONES 

/AC = 

/AC = ONES 

/AC = 

/ERROR, AC NOT CMA FAILED 



/LINK s 1 

/LINK s 

/LINK s 1 

/LINK s 

/LINK s 1 

/LINK s 

/ERROR. LINK NOT CML FAILED 

/CHECK DONE LOOPING 
/LOOP 
/GET NO. FOR NEXT LOOP 



.EJECT 



HASEX9 PAGE 


13 








1 1 1 1 




/ 










/ 

/TFST 


RAR SERirS AND LINK 


0P»6?« 


754(^0? 


RTAT 


CLAtCLLJCML 


0P6?1 


74002B 






RAR 


0('6?2 


740020 






RAR 


0(^6?3 


740020 






RAR 


«C^6?4 


740020 






RAR 


t)(^6?5 


740020 






RAR 


M('6?6 


740020 






RAR 


at'^e?? 


740020 






RAR 


(^C6:!0 


740020 






RAR 


H('^63l 


74002^' 






RAR 


felP'632 


740020 






RAR 


0("633 


740020 






RAR 


0PI634 


740020 






RAR 


^f^635 


740020 






RAR 


0t'636 


740020 






RAR 


Hl^637 


740020 






RAR 


P5^'64« 


740020 






RAR 


0P641 


740020 






RAR 


0(^642 


740020 






RAR 


0^643 


741A00 






SNA'S^L 


01^644 


740040 


Fl 


l13 


HALT 



/AC = 0, LINK s 1 



/ERROR; AC BIT 17 NOT 1, OR LINK ' 1 
/AFTFR ROTATE SERIES 



.EJECT 



HASEV9 



PAGE 14 



t r 1 1 







/TFST 


RAL SERIFS AND LINK 


0(^645 


75400? 




CLA!nLL!CML 


kiP646 


740PI10 




RAL 


vlt^647 


740010 




RAL 


i/IVf^fd 


740010 




RAL 


HC6*51 


740010 




RAL 


k1C'6=;2 


740010 




RAI. 


k1f6'^3 


740010 




RAL 


k^('6'i4 


740010 




RAL 


(')(^6'=i5 


740010 




RAL 


^1(^656 


740010 




PAL 


H('6S7 


740010 




PAL 


i^('i66« 


740010 




RAL 


0('661 


740010 




RAL 


Hl^662 


740010 




RAL 


i^i'663 


740010 




RAL 


0U-664 


740010 




PAL 


0f^6ft5 


740010 




RAL 


t1P666 


740010 




RAL 


i/l(-667 


740010 




RAL 


k^P670 


741600 




sna:s€l 


H^'67l 


740040 


F114 


HALT 






/ 
/TFST 


RTL SERIFS AND LINK 


iif*672 


75400? 




cla!cll:cml 


Hti673 


742010 




RTL 


0C674 


742010 




RTL 


01^675 


742^^10 




RTL 


0f»676 


742010 




RTl 


0(^677 


742010 




RTL 


0f''7Pi0 


742010 




RTL 


0P7PI1 


742010 




RTL 


01^7(^2 


742010 




RTL 


0('-703 


742010 




RTL 


0f'7Pi4 


741600 




SNA!Sj?L 


0t'705 


740040 


F115 


HALT 




i 


/ 

, /TFST 


RTR SEPIFS AND LINK 


0f'706 


75400? 




CLA'CLLJCML 


t^C"7P'7 


742020 




RTR 


i5Ci710 


742020 




RTR 


0f7ll 


742020 




RTR 


0(^712 


742020 




RTR 


0f^713 


742020 




RTR 


0t''714 


742020 




RTR 


i^t'^71S 


742020 




RTR 


0(^716 


742020 




RTR 


0(^717 


742020 




RTR 


0^'7?0 


741600 




SNA!S2L 


0P7?1 


740040 


F116 


HAl T 



/AC = 0, LINK » 1 



/FRRORJ AG BIT NOT 1 
/aFTFR ROTATE SERIES 



/AC = 0, LINK 3 1 



OR LINK = 1 



/ERROR? AC BIT NOT 
/AFTFR ROTATE SERIES 



/AC = 0, LINK = 1 



1, OR LINK s 1 



/ERRORJ AC BIT 17 NOT 
/AFTFR ROTATE SERIES 



OR LINK = 1 



.EOT 



•iA •;(-.y4 



PAHE 15 



tlf^7?3 
/t'7?4 

l1f-^7?6 
^f7?7 
i^C'7 7!C1 
■.')('' 731 
^("732 
^1P'73 3 
/H'734 
I') 1^735 
v1 ("736 
i/»('737 
00740 
V1P741 
^11-74 2 
.U'74 3 
^(^744 
1/1 [' 7 4 5 
k) V7A6 
^l'74 7 



■/lf-7S« 
1'' 7 S 1 
/ir-'7'i.2 
Ht- 753 
|.» (/ 7 'i 4 
t^(/7«^5 
i4('"7S6 
'At- 7 '='7 
i^f''760 
/I'/ 7^1 
^ (-' 7 (S 2 
PI f" 7(^3 
kU-7^4 
i-n''7 65 
(■' 7 («. 6 
0i'7A7 
t^t 770 
0f771 
01/77? 
0C-'773 
0^■774 
0r7 75 



7S4001 
740M2P' 
740P)2P' 
74002(71 
740020 
740020 

740020 
740020 
740020 
740020 

740020 
740t7'20 
740020 
740020 
740020 
740020 
740020 
740020 
740020 
740003 
741600 
740040 



7S400t 
740010 
740010 
740C'10 
740C10 
740010 
740010 
7 4 0010 
740010 
740010 
740010 
740010 
740010 
740010 
740010 
740010 
740010 
740010 
740010 
74000? 
741S|?)0 
740040 



/Pnp-9 HASIC tXERCISFR - TAPF ? 
/ 

/RAR SFRIES 

»aSS rLA!rMA!CLL /AC = ONFS, LINK « 

RAR5 RARJ RaR; RaR 



par; 



rar; 



rar; 



rar; 



rar, 



RARJ 



rarj 



RAR 



cmashml 

SNA'SZL 
F140 mAlT 

/ 
/ 

/TFST RAL serifs TFST 

cla 'cma :cll 
ral; pal; 



F141 



ral; 



RAL 



ral; 



RAt ; 



SPA!S??L 
HALT 

.tJEri 



f?AL ; 



ral; 



RAL 



ral 



rar; rar 



rar; 



rar; 



rar 



RAR 



/AC = 000001, LINK s 

/FRROR! AC BiT 17 NOT 1, OR LINK = 
/AFTFR ROTATF SERIFS 



/AC r ONES, LINK s 
RAL; RAL 



ral; 



pal; 



RaL? 



CML 



RAL 



RA.L 



RAL 



/AC = 377777. LINK = 



/FRROR: AC BIT NOT 0. OR LINK = 
/AFTFR ROTATE SERIES 



U'^EXQ 



PAGE 16 



HC'7 76 


754(^01 


^('7 77 


7421^1^' 


V11 fd(^» 


742M1PI 


^MSf^l 


742P"1P' 


1 H Pi 2 


742(^1^1 


1^1 «PI3 


742M10 


v'l 1 H PI 4 


742'^lPi 


W1 0P)5 


742(^1P' 


i11 iaPI6 


742''llP) 


/11 P)07 


742'^IPI 


^^1010 


740(^«? 


kUBll 


741S0PI 


01012 


740R4P> 



t^l0l3 


754001 


'^1014 


742020 


^11015 


742020 


H1016 


742020 


^11 017 


742020 


v)1 0?0 


742020 


m 091 


742020 


id10?2 


742020 


'^1023 


742020 


01024 


742020 


'^1025 


74000?? 


H1026 


741(S00 


01027 


740040 



/TFST KTl SF.PIFS 

rLA'CMAICLL 

rtl; rtl; 



rtl; 



rtl; 



RTi ; 



r.Hi 



1-14 2 



/ 



SPA!S^L 
HALT 



/TFST RTR SERIFS 

CLAtCMA'CLL 

rTr; rtp; 



F143 



RTr; 



RTR 

CMAicML 
SNA :S^L 
HALT 

.tJECT 



rTr; 



/ac = onfs, link » 
wtl; rtl 



rtl; 



/LINK ' 



RTL 



/error; AC BIT NOT 0» OR LINK 
/AFTER ROTATF SERIFS 



/AC r ONES, LINK s 
rtp; RTR 



= 



RTR; 



RTR 



/AC = 000001, LINK s 

/ERROR; AC BIT 17 NOT 1, OR I INK s 
/AFTER ROTATE SERIES 



JASEvy PATE 

* t t t 


17 














/ 
/TEST 


RAL 


;SNA 




\A'\V\7,V\ 


75400? 






niAiriL! 


ICML 


^iifi:^i 


74i?i0 






FM L ! S N A 




^1(^:^2 


741000 






SKP 




1^)1 «,-^3 


740040 


El^2 

/ 

/TEST 




HALT 








HAf'' 


:SNA 




i^ 1 H 3 4 


75400? 






rLA'.riL! 


ICML 


H103'5 


74i??0 






rarisna 




V.110 36 


741000 






SKP 




^11037 


740040 


El63 

/ 

/TFST 




HALT 








RTL' 


"SNA 




H1«4« 


75400? 






CLAtCLL! 


ICML 


1/^1041 


743P10 






RTl !SNA 




v11 042 


741000 






SKP 




i/)1 043 


740040 


Fl64 

/ 

/TEST 




HALT 








RTR 


•SNA 




i^l 044 


75400? 






CLA'CLL! 


ICML 


01 045 


743??0 






RTRiSNA 




m 046 


741000 






SKP 




01 047 


740040 


E165 

/ 

/TFST 




HALT 








RAL 


:SNA 




01 0110 


75400? 






CLA'HLL' 


ICML 


01 0^1 


740020 






PAR 




H 1 f? ? 


7 4 1 ? 1 






SNA'RAL 




01 0«S3 


740040 


E166 

/ 
/TEST 




HALT 








RA^^ 


:SNA 




01 0S4 


75400? 






PLA'CLL! 


ICML 


01 055 


740010 






RAl 




01056 


74l?20 






SNA '.PAR 




010^7 


740^^4*^ 


El^7 




HALT 
.EJECT 





/AC = 0, LINK = 1 



/ERROR? SNA SKIPPED 



/AC = 0, LINK 



/ERROR; SNA SKIPPED 



/AC = 0, LINK = 1 



/ERROR; SNA SKIPPED 



/AC = 0, LINK = 1 



/error; SNA SKIPPED 



/AC = 0, LINK = 1 
/AC = 400000 

/ERROR. SNA FAILED TO SKIP 



/AC = 0, LINK = 1 
/AC = 000001 

/ERROR; SNA FAILED TO SKIP 



lASEy9 



PAGE 18 







/TFsr 


RTL 


!SNA 


1^1 (1^0 


75400? 






nLA!CLL!CML 


H1«ftl 


742020 






RTR 


m 062 


743?10 






SNA'RTL 


v)^ 0<s3 


740040 


f 16H 

/ 

/TFST 




HALT 






RTP 


!SNA 


H10ft4 


75400? 






nLA'CLLICML 


H10ft5 


742010 






RTL 


H1066 


743?20 






SNA :rtr 


H1067 


740040 


F169 




HALT 






/TFST 


HLL 


:SNA !RaR 


01070 


754001 






CLA'CMAiCLL 


01071 


751?2(^ 






CLA!SNA!RAR 


01072 


740040 


Fi70 




HALT 


01073 


447634 






IS? W0RK3 


01 074 


600620 






JMP RTAT 


01 075 


10610? 






JMS nENRAN 


01 076 


106126 






JMS CKNO 



/AC s 0, LINK 8 1 
/AC s ?00000 

/error; SNA FAILED TO SKIP 



/AC = 0, LINK 



/error; SNA FAILED TO SKIP 



/AC = ONES, LINK « 

/error; SNA FAILED TO SKIP 
/CHECK DONE LOOPING 
/LOOP 

/GET NO FOR NEXT LOOP 



.EJECT 



lA'^EV^ PAHL 19 



I'll li'\3 

k^1 1 1^4 
v11 1P5 
^^ 1PI6 

v^1 1Pi7 

■^1111 

v^1 11? 
1^1 113 
^11 11 4 

v)i 115 
vi1 116 
^^1 117 

m 1?M 
vi 1 1 ? 1 



'/lil?2 


^1123 


.^11 ?4 


■11 1?5 


■^1 1?6 


^1127 


/)1 130 


'^ 1 1 3 1 


'-^l 132 


.ni.-^S 


til 134 


1-3 1 1 3 5 


^'l 1 1 3 6 


v^1l37 


0114 


(-51141 


1^1142 


01143 


01144 


01 145 


114 6 



754^^00 
7 6 1^ (^ 
7 4 010 
744400 
740040 

740010 
744400 
74 00 4 

7 4 0010 
744400 
740040 

7 4 0010 
744400 

740040 

740010 
744400 

7 4 4 

740200 
74004"! 



754001 
760000 
74i4H(^ 
740041^ 
7 4 010 
7 4 4 4 00 
7 4 00 4 

7 4 010 
744400 
7 4 4 



7 4 0010 
744400 
740040 

7 4 (-1 1 
744400 
7 4 4 fl 
7 4 15 vU 
744400 

7 4 00 4 
740200 
7 4 00 4 



/ 
/Tf-ST 

7LA W 



r2f^6 



f207 



F208 



F 209 



^210 



^2M 

/ 
/TFST 



r212 
F213 

F. 2 1 4 
/ 

F 215 

F216 

F217 
F218 



LAW 760000 
TLA tCLI 
I AW 00"i00 
RAl 

SNI :rLL 

MALT 

PAL 

SNL '.^LL 

MAI T 

RAl 

HAL T 

RAL 

SNL trii. 

MAI T 

RAL 

SNI 'CLL 

HALT 

S/fA 
HALT 



lAU 760000, AC ■ 
CLA !CMA ICLL 
LAW 00 '1 
S?L 
HAL T 
RAL 

SNL :rLL 

HALT 

RAl 

SNL inLL 

MAL T 



RAL 

SNL 'CLI 
HAl T 

PAl 

SNL ITLl 

HALT 

SNL !rLI 
HAL T 
S^A 
HAl T 



ONES 



/AC = 

/AC = 760000 

/AC = 740000 

/LINK - 1 

/FRROR; AC NOT NOT A 1. 

/LAW 76000PI FAILFD 

/AC = 700000 

/LINK = 1 

/FRrOrj AC BIT 1 NOT A 1 

/LAW 760000 FAlLfD 

/AC = 600000 

/LINK = 1 

/ERROR: AC BIT 2 NOT A 1 

/LAW 760000 FAILFO 

/AC = 400000 

/LINK = 1 

/ERROR; AC BIT 3 NOT A 1 

/LAW 760000 FAILED 

/AC = 000000 

/LINK = 1 

/ERROR: AC BIT 4 NOT A 1 

/LAW 760000 FAILFD 

/AC = 000000 

/ERROR; AC BITS 5-17 NOT 

/LAW 760000 FAILFD 



/AC = ONES, LINK = 
/AC = 760000 

/ERROR; LINK NOT A 0, LAW SET LINK 

/AC = 740000 

/LINK = 1 

/error; AC frIT NOT A 1, 

/LAW 760000 FAILED 

/AC = 700000 

/LINK = 1 

/error; AC BIT 1 NOT A 1 

/LAW 760000 FAILFD 

/AC = 600000 

/LINK = 1 

/error; AC BIT 2 NOT A 1 

/LAW 760000 FAILED 

/AC = 400000 

/LINK = 1 

/error; AC BIT 3 NOT A 1, LAW 760000 FAlLEO 

/AC = 000000 

/LINK = 1 

/error; AC PIT 4 NOT A 1. LaW 760000 FaILEO 

/AC = 000000 

/error; AC BITS 5-17 NOT 



:ASEy9 



PAGF ?« 



EJECT 



/LAW 7600i)0 FAIirO 



A'>EXS> PAGE. 


?1 


t t T 




^^ 147 


754"0C1 


vill«S« 


777777 


^1151 


740fi01 


^1 152 


740?0(^ 


^111S3 


740Pi4f1 


111154 


74140fi 


011^5 


740(^40 


t11 156 


754PI0? 


^>1157 


777777 


^11 160 


740(^01 


01161 


740P00 


01162 


740040 


01 163 


740400 


01 164 


740040 


01165 


754001 


01 166 


777777 


01167 


740001 


01 17H 


740200 


01171 


740040 


01172 


741400 


01173 


740040 



/TFST LAW 777777, AC=0» L=0 

LAW 17777 

HMA 

S2A 

HALT 



r2l9 



S^l 



HALT 



F 220 

/ 

/TFST LAW linn, AC = 0, L = l 

CLA JCLI. ICML 

LAW 17777 

CMA 

HALT 

SNL 

HALT 



F221 



F222 

/ 

/TFST LAW 777777. AC=1, L=0 

CLA'CMA !CLL 

LAW 17777 

CMA 

S2A 
F223 HALT 

S?L 
F224 HALT 

.tJEHT 



/AH = 

/AC s 760200 



/ERROR. AC NOT 
/LAW 17777 FAILED 
/AC = 400760 

/LINK NOT 



/AC = 

/ERROR, LINK NOT 
/ERROR. LINK NOT 



/AC 







/ERROR. AC NOT 
/AC s 100760 
/ERROR. LINK NOT 



lA'^EVP 



PAGE ?2 



^51 174 


754003 


H1175 


777777 


(r11 176 


74H^1H1 


til 177 


74^1200 


i^lPPiK 


74Mt^4P' 


m 2t^l 


74/40PI 


1^1 202 


740(^41^ 


m 2^'3 


447^34 


01 2H4 


6Mll^77 


Hl2Pt5 


1P!61P)2 


^^12(*<S 


1(^61?^ 



/TFST LAW 



F2?5 



F226 



777777, ACsl, L 


CLA! 


nMA!CLL!CML 


LAW 


17777 


CMA 




Si?A 




maU 


r 


SNI. 




MAI, 1 




IS? 


W0RK3 


JMP 


TLAW 


JMS 


GEN'RAN 


JMS 


CKNO 


.EJECT 



/AC r PI 



/ERROR. AC NOT 



/ERROR, LINK NOT 1 
/CHECK DONE LOOPING 
/LOOP 

/GET NO. FOR NEXT LOOP 



A^^tX*^ PAGE 


23 


t r t 




^^2V>^ 


7'54(^0f^ 


^11210 


207531 


k-l 1 2 1 1 


74020P1 


^^1212 


740040 


^1213 


741400 


H1214 


740040 


^1215 


754002 


V11216 


207531 


H1217 


74K200 


m??ia 


740040 


1^1221 


740400 


H1??2 


740040 


^1223 


754001 


1^1224 


207531 


1/11225 


740200 


41226 


740040 


^^ 227 


741400 


1^1 2>'^0 


740040 


^11231 


754003 


^11232 


207531 


01233 


740200 


i»l234 


740040 


•^1235 


74H400 


1^1236 


740040 



'11237 
i^l 240 
•/11241 
v3l242 
"^1243 
01 244 
01 245 

01 246 
01 24 7 
01250 
01251 
01 252 
01253 
1 25 4 



754000 
207573 
7400(^1 
740200 
740040 
741400 
740041'' 

75400P 
207573 
740001 
740200 
740040 
740400 
740040 



/TFST 

/ 

LACK 



r258 

F259 
/ 



F2(S0 

F261 
/ 



F2^^2 

F263 
/ 



F26 4 

F2^5 
/ 

/TFST 
/ 



F2<^6 

F267 
/ 



F2^« 
F2ft9 



LAP 0'S 



CLAJCLL 
LAH K0 
Sj^A 
HAl T 
Si?L 
HALT 

CLA trLLICML 

I AC K0 

SifA 

HALT 

SNL 

HALT 

CLA JCMA'CLL 

LAC K0 

SHA 

HALT 

S2L 

HALT 

CLA tCMA'CLLSCML 

LAC K0 

S2?A 

HALT 

SNL 

HALT 



LAC 1 'S 



CLA'CLL 


LAC K7S 


CMA 


^it 


HAl T 


Si\ 


HALT 


CLA!CLL;CML 


LAC K7S 


CMA 


S^A 


HAl T 


SNI, 


HALT 


.EJECT 



/AC r 0, LINK 
/000000 







/ERROR. AC NOT AFTER LAC K0 
/ERROR; LINK NOT AFTER LAC K0 
/AC = 0, LINK = 1 

/ERROR; AC NOT 

/ERROR. LINK NOT i AFTER LAC K0 

/AC = I'S, LIN s 

/ERROR. AC NOT AFTER LAC K0 
/ERROR. LINK NOT AFTER LAC K0 
/AC = I'S, LINK = 1 

/ERROR. AC NOT 
/ERROR, LINK NOT 1 



/AC = 0, LINK = 
/777777 



/ERROR. AC NOT LAC K7S FAILED 
/ERROR. LINK NOT AFTER LAC K7S 
/AC = 0, LINK = 1 

/ERROR. AC NOT 

/ERROR. LINK NOT 1 AFTER LAC K7S 



;a<^ex9 



y PARE 


24 


H12'5'> 


7S41101 


i^1?56 


2C^7573 


m2*>7 


740PI01 


H12ft0 


74020P> 


V) 1 ? f 1 


740l^4P' 


^1?62 


74140^1 


1^1 21^3 


7 4 CI 4 


1^1 264 


754^^03 


V11265 


207'>73 


H1266 


740t»01 


^11 2^7 


740200 


/;1 270 


7401^40 


■^1271 


740400 


V41272 


740040 


/1273 


7^0000 


/51274 


207606 


^1275 


20760S 


^1276 


207S73 


V11277 


740H01 


i^l 3P'P> 


740200 


t^1 3Cl 


74004PI 


'-^1 3C2 


447634 


^1303 


601207 


i<^1 3(^4 


1061,02 


M 3(^5 


1061 26 



01 306 


01307 


01310 


01311 


01312 


01313 


01314 


01315 


0131 6 


01317 


01320 


01321 


01322 


01323 


01324 


01325 


01326 



750000 
507531 
740200 
740040 

750(^01 
507531 
740200 
740W40 

750000 
'S07'S73 
740200 
7 4 !'^ 4 

750001 
507573 
740001 
740200 

7 4 00 4 



F 270 

F271 
/ 



'•272 



f273 



/ 

/TFST 

/ 

ANiHAn 



F274 
/ 



F275 
/ 



f 276 
/ 



F277 



AND 



rLA'CMAtCLL 

LAC K7S 

CMA 

Si?A 

HALT 

MALT 

CLA'CMA'CLLiCML 

LAC K7S 

CMA 

S,fA 

HALT 

SNL 

HALT 

HLA 

LAC Ki0i 

LAT K010 

LAC K7S 

CMA 

S2A 

HALT 

IS? W0f^K3 

JMP LACK 

JMS GEMRAN 

JMS CKNO 



CLA 




ANP) 


K0 


S^A 




HALT 




HLA ! 


CMA 


ANO 


K0 


^/?A 




HALT 




niA 




anh 


K7S 


S£A 




MALT 




cla: 


TMA 


ANn 


K7*^ 


CMA 




S£A 




HALT 




.EJETT 



/AC s 1 'S, LINK s P) 

/ERROR. AC NOT 0. LAC k7S FAjlEO 

/ERROR. LINK NOT 1 AFtER LAC K7S 

/AC = I'S, LINK s 1 

/ERROR, AC NOT 

/ERROR, LINK NOT t AFTER LAC K7S 



/AC s 525252 
/AC = 252525 
/AC = 777777 



/ERROR, AC NOT 

/CHECK FOR DONF LOOPING 

/LOOP 

/GET NO. FOR LOOP 



/AC = 

/ERROR. AC NOT AFTER AND K0 
/AC = l«S 

/ERROR. AC NOT AFTER AND K0 
/AC s 

/ERROR. AC NOT AFTER AND K7S 
/AC = 1»S 

/ERROR. AC NOT AFTER AND K7S 



ASEX9 PAGE 


2 5 






t 1 1 




/SF(JtlENTlAL ANn 


v1l3?7 


7S4t^02 


/ 


CLAJCLLiCMI. 


W1 330 


507531 




AND K0 


1^1331 


507573 




AND K7S 


^M33? 


507606 




ANn Kt0i 


H1333 


507605 




AND K010 


^)1 334 


740001 




CMA 


k4l335 


5075,31 




AND K0 


k^1 336 


507573 




ANn K7S 


'^1337 


507606 




ANn Kl^^i 


H1 3-40 


507605 




ANn K010 


H1341 


740200 




S2A 


W1342 


740040 


F27a 


HALT 


141343 


740400 




SNL 


1^1344 


740040 


F279 


HALT 


^1 345 


447634 




IS? WOPK3 


1^1346 


601306 




JMP ANHAC 


1^1347 


106102 




JMS GENRAN 


V113S0 


106126 


/ 
/TFST 

/ 
XORAC 


JMS CKNO 






XO'^ 


141351 


750000 


CLA 


V^1352 


247531 




XOR K0 


1-51 353 


740200 




S2A 


V1135 4 


740040 


F2P0 
/ 


HALT 


^1355 


750001 


CLA'CMA 


vi^Z56 


247531 




XOR K0 


^1357 


740001 




CMA 


01 3ft0 


740200 




S2A 


^11361 


740040 


F2H1 

/ 


HALT 


i>) 1 3 ft 2 


750000 


TLA 


^11363 


247573 




XOR K7S 


01364 


740001 




CMA 


K11365 


740200 




S?A 


«i3ft6 


740040 


F2fi2 

/ 


HALT 


^11 367 


750001 


HLA !rMA 


ki1370 


247573 




XOR K7S 


H1371 


740200 




S/fA 


^^1372 


740040 


r2B3 


HALT 
.EJECT 



/AC = 0, LINK = 1 



/ERROR, AC NOT 

/ERROR, LINK NOT 1 

/CHECK FOR DONE LOOPING 

/LOOP 

/GET NO, FOR NEXT LOOP 



/AC = 

/ERROR, AC NOT AFTER XOR K0 
/AC = I'S 

/ERROR, AC NOT 

/AC r 
/777777 

/ERROR, AC NOT AFTER XOR K7S 
/AC = 1 'S 

/ERROR. AC NOT AFTER XOR K7S 



«ASEy9 PAHt 


?6 


■ 1 1 t 




^^1373 


750000 


t1l 374 


?4760<S 


i^l375 


247A05 


^il376 


247531 


-11377 


247573 


W 1 4 Pi 


247<«'05 


1 4 P" 1 


?47<S06 


^1 4H2 


247606 


01 4P>3 


24760S 


irl 1 4 CM 


740200 


m 405 


740040 


v11 406 


447634 


014H7 


601351 


01410 


10610? 


1^141 1 


106126 



W1412 


01413 


01414 


01415 


^1416 


01417 


01 4?0 


01421 


014 22 


01423 


01424 


01425 


01426 


01427 


01 430 


01431 


01432 


01 433 


01 434 


01435 


01 436 


014 3 7 


014 4 


014 41 


01 442 


14 4 3 


1/1 1 4 4 4 


01 445 



754000 
347531 

740200 
740040 
741400 
740040 

754001 
347531 
740001 
740200 
740040 
741400 
740040 

754002 
347573 
740001 
740200 
740040 
740400 
740040 



754001 
347573 
7 4 20 
740001 
740200 
740040 
741400 
740040 



/SFCJDFNTIAL VQR 

y 


/ 


CLA 




yop K101 




XOP K010 




XOR K0 




XOR K7S 




XOP K010 




X()R K101 




XOP K101 




XOP K010 




S2A 


F2P4 


HALT 


/ 






IS? W0PK3 




JMP XOWAC 




JMS GENRAN 




JMS CKNQ 



/ 

/TFST 
/ 

TAOAC 



F-285 

F2P6 
/ 



F287 

F2PB 
/ 



F2P9 
F2«0 



TAH 



F291 
F2<>2 



CLA'CLl 
TAD K0 
S^A 
HALT 

HALT 

CLA :CMA!CLL 

TAO K0 

CMA 

S£A 

HALT 

SifL 

HALT 

CLA 'CLLlCML 

TAD K7S 

CMA 

Sj'A 

MALT 

SNL 

HALT 



CLA ICMA'CLL 
TAD K7S 

RAP 
CMA 

HALT 
SzfL 
HALT 
.FJECT 



/AC = 
/525252 
/252525 

/000000 

/mill 



/FRRnK, AC NOT 

/CHFCK FOR DONF LOOPING 

/LOOP 

/GFT NO. FOR NEXT LOOP 



/AC = 0, LINK = 

/ERROR, AC NOT AFTER TAD k0 
/ERROR. LINK NOT AFTER TAD K0 
/AC = 1»S, LINK = 

/ERROR. AC NOT 
/ERROR. LINK NOT 
/AC r 0, LINK = 1 

/mill 

/ERROR. TAD K7S FAILED 

/ERROR. CARRY OUT OR OVERFLOW 
/FAILED. LINK NOT 

/AC = I'S, LINK 5 P! 



/ERROR. TAD K7S TO t'S FAILED 
/ERROR. LINK NOT 



iASEyg PAGt 


27 


1 1 1 1 




H1446 


754^^01 


^1AA7 


34753? 


i^14^0 


740200 


k1l45i 


740^^40 


«1452 


740400 


^^1453 


7401^40 


k5l4'>4 


754003 


^14^5 


34753? 


\a^A56 


740200 


MM'i? 


740040 


W1460 


741400 


m461 


740040 



/TrST nVFRFLOW 

/ 



^2^3 

F204 
/ 



F295 



riASCMAlCLL 

TAO Ki 

S2A 

HALT 

SNL 

HALT 

rLA!rMA!CLL:CML 

TAD Ki 

S£A 

HALT 

S^L 

HALT 



/AC r I'S, LINK = 
/000001 

/ERROR. AC NOT AFTER TAO Ki 

/ERROR. LINK NOT 1 nVFRFLHW FAILED 

/AC = I'S, LINK s 1 

/ERROR. AC NOT 

/ERROR, LINK NOT OVERFLOW FAILED 



F296 

/ 

/TAD 52'3252. AC = 252525» LINK = 

/ 

CLAjCLL 

TAP K010 

/AC = 1 'S 

/ERROR. AC NOT 
/ERROR. LINK NOT 



01462 


754000 




CLAjCLL 


01463 


347605 




TAP K010 


01464 


347606 




TAD K101 


01465 


740001 




CMA 


01466 


740200 




S2A 


01467 


740040 


t29 7 


HALT 


01470 


741400 




S2L 


01 471 


740040 


t298 
/ 

/TAD 
/ 


HALT 






252525, AC = 525252» LINK 


01472 


75400? 


CLA!CLl:CML 


01473 


347606 




TAD Kltn 


01474 


347605 




TAD K010 


01475 


740001 




CMA 


01476 


740200 




9.i^ 


01477 


740040 


F299 


HALT 


01500 


740400 




SNL 


01501 


740040 


F300 
/ 

/SFQIJ 

/ 


HALT 






ENTIAL LAC, TAD, XOR 


01502 


754000 


CLAICLL 


01 503 


207605 




LAC K010 


01504 


347606 




TAP Kl'n 


01 5^5 


247605 




VOW K010 


01506 


347605 




TAD K010 


01507 


347532 




TAO KI 


01510 


740400 




SNL 
.EJECT 



/AC = I'S 

/ERROR. AC NOT 
/ERROR. LINK NOT 

/AC = 0, LINK = 
/AC = I'S 
/AC = I'S 



-tASEXy 



PAGE ?8 



1 1 1 1 



1^1 51 1 
^11512 
^11513 

.11515 
1^1516 
^11517 

H15?PI 
|,^15?1 
H15P2 
V'115?3 



74004171 
2l^760<S 
24757.^ 
347i«>C5f« 
247*^7^ 
74t^?(1PI 
74l,^(?l4Pi 
447634 
60141? 
1061H2 
lt^6126 



r3t^l 



i3l5?4 


7^4(^00 


^^1525 


3PI7565 


1^1526 


3^757? 


^1527 


740(''01 


^153« 


740P00 


H1531 


7 4 4 Pi 


vil532 


74 1400 


vll533 


7 4 M 4 


vll534 


754000 


1^1535 


307566 


lr)l536 


307571 


H1537 


740001 


H1540 


740200 


k1l54l 


740^40 


1^1542 


741400 


^11543 


740040 


m544 


754000 


^11545 


3(^7567 


H1546 


307570 


01 547 


740001 


fA^ 550 


740200 


^1551 


740040 


H1552 


741400 


01553 


7 40':i40 


01554 


754000 


01555 


307'=;7f^ 


01 556 


3(^7567 


01557 


740001 


01 560 


740200 


01561 


7 4 00 41^ 


01562 


741400 


01563 


740040 



F3l''2 



/ 
/ 

/TFST 
/TEST 
A on AC 



F3^'3 

F30 4 

/ 

/TFST 



F305 

/ 
/TFST 



F3'^7 

F 30 8 

/ 

/TFST 



f 3^1 V 
F310 



A on 
Aun 



Aun 



ADD 



Aun 



HALT 

t.AC Kl<n 

XOR K7S 

TAn K101 

XOR K7S 

S£A 

HALT 

IS? W0KK3 /CHECK 

JMP Ta'UC 

JMS GEMRAN 

JMS PKNO 



/ERROR. LINK NOT 1 



/ERRHR. AC NOT Pi 
OONF LOOPING 
/LOOP 
/GFT NO. FOR NFXT LOOP 



KlS TO K6S, 
CLA'CLL 
Aon KlS 

AUn K6S 

CMA 

S^A 

HALT 

S£L 

HAl T 

K2S TO K5S, 
CLA !CLL 

Ann K2S 

AUD K5S 

CMA 

Sj?A 

HAl T 

S^L 

HALT 

K59, TO K4S, 
CLA 'CLL 
ADO \< S"^ 
Aon K4«; 
ruA 

S2A 
HALT 
Sj!L 
HALT 

K4S TO K3S, 

CLA 'TLL 

AOn K4S 

AOn K3S 

CMA 

S^A 

HAl T 

S£L 

HALT 

.EJECT 



L INK = 



LINK 



LINK 







/AC = 0, LINK = 

/mill 

/666666 
/AC = 

/ERRORS ADD KlS TO K6S FAILED 

/error; link NOT API 

I 

/AC , link s 
/22222 
/555555 
/AC s 

/error; add K2S to K5S FAlLEn 

/error; link not a 



LINK = 







/AC, LINK =0 
/33333 
7444444 
/AC = 

/error; ado K3S to K4S FAILED 

/error; link not A0 

/AC, LINK r0 

/444444 

/333333 

/AC = 

/ERROR; AND K4S TO K3S FAILED 
/ERROR; LINK NOT A0 



H1610 


H1611 


H1612 


H1613 


k^1614 


H1615 


i11616 


^617 


H16?H 


m6?l 


H16P2 


H16P3 


H16?4 


H16P5 


i41 6?6 


016P7 


H1630 


H1631 


^41632 


M1633 



74020PI S^A 

74004PI F315 HALT /ERRORJ ADD K7S TO K0S FAILED 

741400 S2L 

740040 F316 HALT /ERROR? LINK NOT A 

/ 

/TFST AUO ?5?525, AC « 52525?, LINK « 

754001 CLLJCLA'.CMA /AC - ONFS, LINK » 

207606 LAC KlMl /AG = 525252 

3076(15 ADD K010 /AC = 252525 

740001 CMA /AC = 

740200 S2A 

740040 (-317 HALT /ERROR; AOO K101 TO K010 FAILED 

741400 S^L 

740040 F318 HALT /ERROR» LINK NOT A 

/ 

/TFST AUn 525252, AC s 252525, LINK » 

744000 CLL /LINK * 

207605 LAC K010 /AC = 252525 

307606 ADD K101 /525252 

740001 CMA /AC s 

740200 SifA 

740040 F319 HALT /ERROR; ADO K010 TO K101 FAILED 

741400 S2L 

740040 F320 HALT /ERROR; LINK NOT A0 

.EJECT 



HA'^EXy 



PAGE ^\d 



T r T t 



/TFST 



vM 6:^4 


^1 6:^'? 


H1636 


H1637 


i-^ 1 6 4 H 


^il641 


H164? 


ill 643 


0164 4 


1116 4 5 


^1 646 


m 647 


1^1 6'=>« 


k^1 6S1 


^116^2 


016*53 


1 6 «S 4 


016'='5 


016S6 


01657 


01660 


01 6i«'l 


0166? 


01 663 


01 664 


01665 


01 666 


01667 


01670 


01671 


01 672 


01673 


01 674 


01675 


01 676 


01677 



754001 
;>Pi7554 
307'^7:^ 
50757,^ 
247'=i54 
740P00 
74004PI 
74140PI 
7 4 l-i 4 



754(^01 
207560 
30756f/l 
"50757,1 
247554 
740200 
740040 
740400 
740040 



754003 
207321 
307573 
507^73 
247-^21 
740200 
740040 
740400 
740040 



754001 
207553 
307573 
507*^73 
247553 
740200 
7 4 00 40 
741400 
7401714(71 



F321 

Fi?? 

/ 

/TFST 



(■323 

F3?4 

/ 

/TFST 



ADD K7S, AC » K400K, LINK » 

CLAirMAtCLl. /AC s ONE"S» LINK « 

I AT K4fl0K /AC s 400K 

ADR k7S /ONFS 

AmH K7S /AC s 400K 

yOw K400K 

'^jfA /AC = 

MALT /ERROR; ADD-0 TO K400K FAILED 

HALT /error; LINK NOT A 0, CARRY FAILED 

AUn K200K, AC = K200K, LINK r 

CLA'CMAICLL /AC = ONES, LINK c 

LAH K200K /AC = 200K 

ADO K2"i0K /ONFS 

ANP K7S /AC = 400K 

XO^ K4fi0K 

S^A /AC = 

HALT /ERROK; ADO K200K TO K200K FAILED 

SiMI 

HALT /ERROR; LINK NOT A ONES, CARRY FAILED 

Aun k;s, AC = K100K, link * 1 



F3?5 

F326 

/ 

/TFST 



F3?7 
F32b 



CLA'CMAICLL !CML 

LAC K1(^(3K 

ADD K7S 

AND K7'^ 

VOR K1^0K 

SZA 

HALT 

SNL 

HAL T 



/AC = ONES, LINK s 1 

/AC = 100K 

/ONES 

/AC = 100K 

/AC = 

/ERROR; ADD-0 TO K100K FAILED 

/ERROR; LINK NOT A ONE. LINK RESET 



Aijn K7S, AC s K40K, LINK = 

CLAlTMAiCLL /AC - ONFS, LINK « 

LAC K4«K /AC = 40K 

AQO K7'. /ONES 

AND '<7S /AC = 40K 

VOtv K41K 

S2A /AC = 

HALT /ERROR; AOD-0 TO K40K FAILED 

S,?L 

HALT /ERROR; LINK NOT A ^ERO, CARRY FAILED 

.EJECT 



HASLXV PAGE 


31 


t t t T 




Vl17fl0 


754001 


K»17P11 


207557 


A17Pt2 


307573 


017PI3 


507573 


k417W4 


247557 


017PI5 


740200 


U17Pt6 


740040 


01707 


741400 


k}l710 


740040 


k«17U 


754001 


1^1712 


207556 


^1713 


307573 


01714 


507573 


01715 


247556 


01716 


740200 


01717 


740040 


t«17?0 


741400 


01721 


740040 


01722 


754001 


01723 


207550 


01724 


307573 


01725 


507573 


01726 


247550 


01727 


740200 


017.30 


740040 


01731 


741400 


01732 


740040 


01733 


754001 


01734 


207546 


01735 


307573 


«1736 


507573 


01737 


24754^ 


01740 


740200 


01741 


740040 


01742 


741400 


01743 


740040 



/TEST ADD K7S, AC ■ K20K, LINK x 

CLAJCMAICLL /AC « ONES, LINK « 

LAC K20K /AG 8 20K 

ADD K7S /ONES 

AND K7S /AC = 20K 

XOR K20K 

SiA /AC X 

F329 HALT /ERRORj AOD-0 TO K20K FAILED 

SiL 

F330 HALT /ERROR» LINK NOT A 2ER0, CARRY FAILED 
/ 

/TEST AND K7S, AC w K10K, LINK = 

CLAJCMAICLL /AC = ONES, LINK ■ 

LAC Kl0K /AC s 10K 

ADO K7S /ONES 

AND K7S /AC s 10K 

XOR ,K10K 

S2A /AC = 

F331 HALT /ERROR; ADD-0 TO Kl0K FAILED 

SEL 

HALT 



/ERRORJ LINK NOT A ZERO, CARRY FAILED 



F332 

/ 

/TEST ADD K7S, AC * K4K, LINK = 

CLA!CMA!CLL /AC = ONES, LINK s 

LAC K4K /AC = 4K 

ADO K7S /ONES 

AND K7S /AC = 4K 

XOR K4K 

S2A /AC = 

F333 HALT /ERRORJ AOD-0 TO K4K FAILED 

S2L 

HALT /ERROR; LINK NOT A ZERO, CARRY FAILED 



E334 
/ 



/TEST ADD K7S, AC s K2K, LINK = 

CLAJCMAICLL /AC s ONES, LINK s 

LAC K2K /AC « 2K 

ADD K7S /ONES 

AND K7S /AC = 2K 

XOR K2K 

SZA /AC = 

E335 HALT /ERRORJ AOD-0 TO K2K2 FAILED 

SZL 
E336 HALT 

.EJECT 



/ERROR; LINK NOT A ZERO, CARRY FAILED 



'iA^evv pahe: ?>? 
tt f t 



■^^ 744 


.11745 


^■M 7 4 6 


vl1 747 


i-h 7*^H 


H17^1 


lr11 7'Sp 


til 7'^3 


1^1 7'='4 


H1 7^5 


^'1 7^6 


m 7^7 


^11 7(^0 


H1 7^1 


vil7A2 


«^1 7^3 


1-1176 4 


vli 765 


0176 6 


IJ1 76 7 


e)1 77H 


tii77l 



7S4v'i^1 
3C^7'5 7^X 

5r^7S7:K'V 

<?47^4\.^ 

7 4t)?M'^ 
7 4tl(/i4C' 
7414HP1 
7 4 i/) .M f^ 



754''101 
^PI7'^4'"> 

247545 
74^1?y|0 
7 4 M 4 1^ 
74l4Plf' 

447634 
6M1S?4 
lt^61 <A? 
1(^612^ 



/TFST Ai)(i 



F3.<7 

r 3 .^ B 

/ 

/TFST AOn 



'^3'^9 
F 34t^ 



K7S, Ar s KIK, 
TLA :nMA !CLl 

k7S 
K 7'^ 



LINK 



I Ar 

ADO 

AmH 

yOfv 

haI 

HALT 



s (^ 




/AC = 


ONFS 


/AC = 


IK 


/ONFS 




/AC = 


IK 



LINK s 



/AC 



d 



A T 



/ERROR; AOn-0 TO 
/ERROR; LINK NOT 



K;S, AC = K4P10, 

CLA 'CMA 'CLL 

I AT K4>/10 

AIJO K?*^ 

ANO K7S 

VOM K4"i(|} 

S/'A 

HALT 

Sj^L 

HALT 

IS/ WCK^ 

JMF AOOAr 

JMS GEMRAN 

JMS TKMO 

.EJECT 



LINK s PI 
/AC = 
/AC = 
/ONES 
/AC = 



ONES. 
40(^ 

40P) 



/AC = PI 

/ERROR; AOn-tl TO 



KiK FAILED 

A jfERO, CARRY FAILEO 



LINK s 



/ERROR; 

/CHECK 

/LOOP 



K400 FAILED 

CARRY FAILED 



L INK NOT A 2FRn, 
DONE LOOPING 



/GET NO, FOR NEXT LOOP 



rtASEX9 



tf 1 1 



9 PAGE 


33 


01772 


754001 


01773 


207541 


H1774 


307'573 


k51775 


507541 


H1776 


247541 


01777 


740700 


0?000 


740040 


07001 


741400 


07002 


740040 


0P003 


754001 


07004 


20753^ 


07005 


307573 


07006 


507573 


07007 


247535 


07010 


740700 


07011 


740040 


07012 


741400 


07013 


740040 


07014 


754001 


07015 


207534 


07016 


307'573 


07017 


507573 


^?d?9 


247534 


07071 


740700 


07072 


740040 


07073 


741400 


07074 


740040 


07025 


754001 


07076 


207533 


07077 


307573 


07030 


507573 


07031 


247533 


07032 


740700 


07033 


740040 


07034 


741400 


07035 


740040 


07036 


754001 


07037 


207537 


07040 


307573 


07041 


507573 


07042 


247537 


07043 


740700 


07044 


740040 


07045 


741400 


07046 


740040 



/TEST ADD 
AOnACl 



F34 7 



F348 

/ 

/Tf ST 



F349 

r350 

/ 

/TFST 



r35i 

F352 

/ 

/TFST 



F353 

F354 

/ 

/TFST 



F355 
F356 



Aon 



ADD 



ADD 



ADO 



k7s, ao • k20, link 
clajcmaicll 

LAC K20 
ADD K7S 
AND K20 
XOR K20 
S2A 
HALT 
S2L 
HALT 

K7S, AC « K10, LINK 

CLA!CMA!CLL 

LAC Kl(^ 

ADO K7S 

AND K7S 

XOR KlPi 

SHA 

HALT 

S2L 

HALT 



3 
/AC • 
/AC « 
/ONES 
/AC ■ 

/AC « 



ONESi 
20 

20 





LINK « 



/ERROR! ADO -0 TO K20 FAILED 
/ERRORJ LINK NOT A 2ER0, CARRY FAILED 



s 
/AC s 
/AC s 
/ONFS 
/AC = 

/AC s 



ONFS, 
10 

10 





LINK 







/ERRORI ADD « TO Kl0 FAILED 
/ERROR; LINK NOT A 2ER0 CARRY FAILED 



K7S, AC s 4, 

CLAlCMAtCLL 

LAC K4 

ADD K7S 

AND K7S 

XOR K4 

S2A 

HALT 

S2L 

HALT 

K7S, AC s K2, 

CLAJCMA'CLL 

LAC K2 

ADD K7S 

AND K7S 

XOR K2 

S2A 

HALT 

S2L 

HALT 

K7S, AC * Kl, 

CLA'CMAICLL 

LAC Kl 

ADD K7S 

AND K7S 

XOR Kl 

S2A 

HALT 

S2L 

HALT 



LINK = 





/AC s 
/AC s 
/ONES 
/AC s 



ONES, LINK 
4 



s 



/AC s 

/ERROR! ADD -0 TO K4 FAILED 

/error; link not a 2ER0. CARRY FAILED 



LINK 



s 
/AC, a 
/AC = 
/ONES 
/AC = 



ONES, LINK 
2 







/AC = 

/ERROR; ADD -0 TO K2 FAILED 

/error; link not a 2ER0, CARRY FAILED 



LINK 



: 

/AC r 
/AC r 
/ONES 
/AC s 

/AC a 



ONES, LINK 
1 







A 
s 



/ERROR; ADD -0 TO Kl FAILED 

/error; link not a 2ER0, CARRY FAILED 



■^^<ly9 pagf ;m 



.EJECT 



'<ASEX9 PAGE 


35 


T t t t 




H'^047 


744000 


0?0«>0 


777777 


0P051 


507*^73 


H70">2 


307*554 


H?0*>3 


247554 


0P054 


740?00 


HP055 


740040 


k5?0«>6 


741400 


^^PB"?? 


740040 


i^?060 


74400? 


t^?0ftl 


777777 


aj'062 


507*573 


fc5?063 


307560 


l^?064 


247*560 


0P065 


740P00 


aP0fr6 


740040 


a?0ft7 


740400 


«?070 


740040 


k3?071 


74400? 


H?072 


777777 


(4P073 


507573 


0P0/4 


307321 


<A?^75 


?473?1 


H?076 


740?00 


^^7077 


740040 


i()?lPI0 


740400 


VlPlPIl 


740040 


v1?102 


74400? 


^1P103 


777777 


0?1PI4 


507*573 


HPIPIS 


307553 


k5?lP)6 


247553 


0P1PI7 


740200 


I4P110 


740040 


H?lll 


740400 


MP112 


740040 


K)?113 


74400? 


W?114 


777777 


i!)?115 


507573 


0?116 


307*557 


14?117 


247557 


H?1?0 


740200 


t'?!?! 


740040 


MP122 


740400 


(^?1?3 


740M40 



/TFST ADD K400K, AC 

nil. 

LAW 17777 
ANn K7S 
AOn K400K 
XOR K400K 
S£A 
HALT 
SZL 
HALT 



« ONES, LINK » 

/LINK « 
/AC = ONES 
/AC s ONES 
/400K 



F35 7 

R3*58 

/ 

/TEST 



/AC s 

/ERROR? ADD K400K TO -0 FAILED 

/ERROR; LINK NOT A ZERO, CARRY FAILED 



F359 

F360 

/ 

/TEST 



F361 

E362 

/ 

/TEST 



F3ft3 

E364 

/ 

/TEST 



Al)n K200K, AC 
CLL!CM| 
LAW 17777 
AND K7S 
ADD K2''^0K 
XOR K2':'>0K 
SniA 
HALT 
SNL 
HALT 

ADD K100K, AC 
CLLtCML 
LAW 17777 
ANn K7S 
AfjD Kll^0K 
XOR K1M0K 
Si5A 
HALT 
SNL 
HALT 

ADD K40K, AC ' 
CLL !CML 
LAW 17777 
ANn K7S 
AIJD K4P'K 
XOR K4(>iK 
SjfA 
HALT 
SNL 
HALT 



= ONES, L INK = 1 

/LINK s 1 
/AC = ONES 
/AC = ONES 
/200K 



/AC = 

/error; add K200K TO -0 FAILED 

/ERROR; LINK NOT A ONE. LINK RESET 



= ONES, LINK s 1 

/LINK = 1 
/AC = ONES 
/AC = ONES 
/100K 



/AC = 

/error; add K100K TO -0 FAILED 

/ERROR; LINK NOT A ONE» LINK RESET 



ONES, LINK s 1 

/LINK = 1 
/AC = ONES 
/AC = ONES 
/40K 



/AC = 

/error; ADD K40K TO -0 FAILED 

/ERROR; LINK NOT A ONE. LINK RESET 



ADD K20K, AC •■ 
nLL'CML 
LAW 17777 
AND K7<: 
ADD K2'^K 
XOR K2(^K 
SZA 

F3ft5 HALT 
SNL 

F3^6 HALT 



ONES, LINK » 1 

/LINK = 1 
/AC = ONES 
/AC = ONES 
/20K 



/AC = 

/ERROR; ADO K20K TO -0 FAILED 

/error; link NOT A ONE. LINK RESET 



■U'^f v^ 



PAGf ^ft 



.tf^T 



HASEy9 



PARE 37 



/PnP-9 BASIC EXERCISER - TAPE 3 



/TEST ADD 



H?l?5 
U?l?6 
0?1?7 
H?130 
HP131 

HP133 
«?134 



H?135 
0P136 
U?137 
t)?140 
0?141 
0?142 
k5?143 
0P144 



H?146 

0P150 
0?151 
0?152 
0P1S3 
A?15A 

0?156 



t1?157 
(^?160 

fe)?l(S3 
ia?lft4 

0?167 



H?170 
0?171 
0?172 
0?173 
0?174 
fl?175 
^l?176 
H?177 

!/)?2(^0 



74400? 
777777 
507^73 
307«556 
247'556 
740200 
74004PI 
740400 
740040 



74400? 
777777 
507573 
307550 
247550 
740200 
740040 
740400 
740040 



744002 
777777 
507573 
307546 
247546 
740200 
740040 
740400 
740040 



74400? 
777777 
507'^73 
307544 
247544 
740P00 
74004PI 
74040PI 
740(^4(^ 



74400? 
777777 
507573 
307545 
247545 
74020PI 
740040 
740400 
740040 



Fi67 

F368 

/ 

/TEST 



E369 

E370 

/ 

/TEST 



E371 

E372 

/ 

/TEST 



F373 

F374 

/ 

/TEST 



F375 



F376 



Aon 



K10K, AC ■ 
CLLJCML 
LAW 17777 
AND K7S 
ADD K10K 
XOR K10K 
S2A 
HALT 
SNL 
HALT 

K4K, AC s 
CLL!CML 
LAW 17777 
AnO K7S 
ADD K4K 
XOr K4K 
S2A 
HALT 
SNL 
HALT 



ONES, 



Aon 



ADD 



ADD 



K2K, AC 
CLL SCML 
LAW 17777 
AND K7S 
ADD K2K 
XOR K2K 
SZA 
HALT 
SNL 
HALT 

KlK, AC s 
CLLJCML 
LAW 17777 
AND K7S 
ADD KlK 
XOR KlK 
S2A 
HALT 
SNL 
HALT 

K400, AC : 

CLL.'CML 

LAW 17777 

AND K7S 

ADO K4i?l0 

XOR K4?I0 

S^A 

HALT 

SNL 

HALT 



LINK * 1 
/LINK 
/AC s 
/AC « 
/10K 



* 1 

ONES 

ONES 



/AC = 

/ERROR? ADD K10t TO -0 EAILED 

/ERRORJ LINK NOT A ONE, LINK RESET 



ONES, 



LINK s 1 
/LINK 
/AC s 
/AC = 
/4K 

/AC s 



= 1 

ONES 

ONES 




/ERROR? 

/ERROR? 



ADD K4K TO -0 FAILED 

LINK NOT A ONE, LINK RESET 



s ONES, 



LINK s 1 
/LINK 
/AC = 
/AC = 
/2K 



= 1 

ONES 

ONES 



/AC = 

/ERROR? AC K2K TO -0 FAILED 

/ERROR? LINK NOT A ONE. LINK RESET 



ONES, 



LINK = 1 
/LINK 
/AC = 
/AC s 
/IK 



= 1 

ONES 

ONES 



/AC s 
/ERROR; 

/ERROR? 



ADO KlK TO '(A FAILED 

LINK NOT A ONE, LINK RESET 



ONES, 



LINK = 1 
/LINK 
/AC = 
/AC = 
/400 



= 1 

ONES 

ONES 



/AC = 

/ERROR? ADD K400 TO -0 FAILED 

/ERROR? LINK NOT A ONE. LINK RESET 



'M^<:[y9 PAGt 7,8 



.EJECT 



HASEX9 PAGE 
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1 1 1 1 




0P201 


74400? 


0?2PI2 


777777 


0?203 


507573 


0P2PI4 


30755? 


(<)?2P'5 


24755? 


0P206 


740200 


v4?2P)7 


740040 


0?210 


740400 


«?2U 


740040 


^?212 


74400? 


«?213 


777777 


HP214 


507573 


0?215 


307540 


0P216 


247540 


0?217 


740200 


kJ?2?0 


740040 


0?2?1 


740400 


0?2?2 


740040 


0P223 


74400? 


M?2?4 


777777 


0?225 


507573 


0?2?6 


307543 


0P227 


247543 


0P230 


740200 


0?231 


740040 


0P232 


740400 


07233 


740040 


0P234 


74400? 


0P235 


777777 


0P236 


507573 


07237 


307541 


0?240 


247541 


0P241 


740P00 


0?242 


740040 


0^243 


740400 


0P244 


740040 


0P245 


74400? 


0?246 


777777 


0?247 


507573 


0P250 


307535 


0?251 


247535 


07252 


740200 


0?253 


740040 


0?2*>4 


740400 


0?2*>5 


740040 



/TFST AOn K20a, AC » ONES, LINK « 1 



F377 

F378 

/ 

/TFST 



Aon 



F379 

F3P0 

/ 

/TFST 



CLLSCML 
LAW 17777 
AND K7S 
ADO K200 
XOR K200 
S2A 
HALT 
SNL 
HALT 

K100, AC » ONES, 

CLLSCML 

LAW 17777 

ANn K7S 

ADD K100 

XOR K100 

SZA 

HALT 

SNL 

HALT 



/LINK » 1 
/AC « ONES 

/AC » oNrs 

/200 

/AC « 

/ERRORl ADD »<20B TO -0 FAILED 

/ERRORI LINK NOT A ONE. LINK RESET 



LINK s 1 




/LINK 


« 1 


/AC » 


ONES 


/AC - 


ONES 


/100 





/AC 







/ERRORJ ADO K100 TO -0 FAILED 
/ERROR? LINK NOT A ONE. LINK RESET 



F3»l 

F382 

/ 

/TFST 



F3B3 

E3P4 

/ 

/TFST 



F3H5 
F3fi6 



ADD K40, AC « 
CLL!CML 
LAW 17777 
AND K7S 
ADD K40 
XOR K40 
SZA 
HALT 
SNL 
HALT 

ADD K20, AC = 
CLL5CML 
LAW 17777 
AND K7S 
AOn K20 
XOR K2^'' 
S2A 
HALT 
SNL 
HALT 

ADD K10, AC s 
CLLJCML 
LAW 17777 
AND K7S 
ADD Kl'^ 
XOR K10 
S2A 
HAl-T 
SNL 
HALT 



ONES, LINK s 1 

/LINK « 1 
/AC = ONES 
/AC = ONES 
/40 



/AC = 

/ERROR; ADD K40 TO -0 FAILED 

/ERRORJ LINK NOT A ONE. LINK RESET 



ONES, LINK 5 1 

/LINK « 1 

/AC = ONES 

/AC - ONES 
/20 

/AC = 



/ERROR? ADD K2« TO -0 FaILEQ 
/ERROR; LINK NOT A ONE. LINK RESET 



ONES, LINK s 1 

/LINK « 1 

/AC - ONES 

/AC * ONES 



/AC = 



/error; add k10 to -0 failed 
/error; link not a one. link reset 



HASfW PAf;r A\A 



•EJETT 



<ASEX9 PAGE 
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1 1 1 r 




H?2*)6 


744P10? 


«?2*i7 


777777 


0?260 


507573 


H??<S1 


307534 


HP262 


247534 


0?263 


740P00 


H?264 


740040 


H?2A5 


740400 


kJ?2<S6 


740040 


H?2'^7 


74400? 


0?270 


777777 


«?271 


507«573 


HP272 


307533 


0P273 


247533 


0^274 


740P0PI 


H7275 


740040 


f1?276 


740400 


M?277 


74004P' 


0^3(?0 


74400? 


t«P3Pll 


777777 


0?3PI2 


507573 


0P3PI3 


30753? 


k4?304 


24753? 


M?3PI5 


740?0t^ 


0P3PI6 


740040 


0?3(^7 


740400 


a?310 


740040 


t^?311 


744H0PI 


^^?312 


207573 


H?313 


307S73 


0?314 


740PI01 


M?315 


740P00 


k1?316 


7 4 M 4 (1 


^?317 


741400 


v^?3?0 


740040 


l^?3?l 


744R0? 


l^?3?2 


207ft0'5 


^73?3 


307607 


H'3?4 


247^3? 


0?3?5 


740?0f^ 


H?3?6 


740040 


MP327 


740400 


M?330 


74004PI 



/TFST 



F3ft7 

F38 8 

/ 

/TFST 



F3B9 

F390 

/ 

/TFST 



ADD K4, AC » ONES, LINK 
CLLSCMI. 
LAW 17777 
AND K7S 
ADD K4 
XOR K4 
S2A 
HALT 
SNL 
HALT 

ADD K2, AC » ONES, LINK 
rLLJrML 
LAW 17777 
AND K7S 
AOn K2 
XOR K2 
S2A 
HALT 
SNL 
HALT 



F391 
F392 
/TFST 



F393 

F394 
/ 

/TFST 



F395 
F396 



= 1 
/LINK 
/AC s 
/AC s 
/4 

/AC = 



» 1 

ONES 

ONFS 







/ERROR? ADD K4 TO -0 FAILED 
/ERROR! LINK NOT A ONE. LINK RFSFT 



/LINK « 1 

/AC = ONFS 

/AC s ONES 
/2 

/AC = 

/ERRORJ ADD K2 TO -0 FAILED 

/error; LINK NOT A ONE» LINK RESET 



ADO Kl, AC a ONES, LINK = 1 



CLLtCML 
LAW 17777 
AND K7S 
ADD Kl 
XOR Kl 
S2A 
HALT 
SNL 
HALT 

AOn K7S, AC a 
CLL 

LAC K7S 
ADD K7S 
CMA 
SZA 
HALT 
SZL 
HALT 

ADD 525253, AC 
CLL iCML 
LAC K010 
ADO K5:^ 
XOP Kl 
SZA 
HALT 
SNI 
HALT 
.EJECT 



/LINK s 1 

/AC = ONES 

/AC s ONES 
/I 

/AC = 

/ERROR; ADD Kl TO -0 FAILED 

/ERROR; LINK NOT A ONE» LINK ReSET 

ONFS, LINK s 

/LINK = 

/AC = ONES 

/ONES 

/AC = ONFS 

/AC = 

/error; ADD K7S TO ALL ONES FAILED 

/ERROR; LINK NOT A ONE. LINK ReSET 

252525, LINK = 1 
/LINK = 1 
/AC = 252525 
/5?5?53 
/000001 
/AC = 
/ERROR; ADD K5253 TO K5252 FAILED 

/ERROR; LINK NOT A ONE. LINK RESET 



HA^F V^ 



PACL 4^ 



t t t t 



/TFST AUO ?'??5?b, AC » 5?5?53, LINK RESET 



i)'^3,-^l 


lAAiAiAiA 




CLl 


'i- 3 3? 


? 7 ^1 7 




LAT Kt>3 


.^' 333 


3H7^MS 




ADD K010 


^1: 334 


247^^3? 




XOP Ki 


ii:'33'i 


lAH?^'^ 




S/iA 


i^'336 


7 4 1^ :^ 4 1^ 


F3Q7 


HAI T 


^1 '^ 3 3 7 


7 4 1 4 M 




Sifl 


t'::'3 4k1 


7 4 M !^ 4 1'' 


(-3^8 

/ 

/TFST 


HALT 






Aun struFS 


iV.34 1 


7S41'^(^P' 




CLAirLL 


*^' 34? 


3H7«^65 




ADD KlS 


^1' 343 


3(^7'S6<^ 




ADD K?S 


>/)•: 344 


3(^7567 




ADD K3S 


t/l 7 ;? 4 S 


3W7'^7C^ 




AOn K4S 


H-, 346 


3(^7'S71 




AOn K|?S 


H-347 


3PI7'^7? 




ADO K6S 


i>ir S'^n 


3M7S73 




AUn K7S 


ii>\3f^l 


740PI01 




CMA 


H'3^? 


74^00 




S,fA 


^■^'•3'^3 


7 4 CM CI 


r3«9 


HALT 


i^ : ■ 3^4 


740401^ 




SiMI 


i'n^3'^'ii 


7401^40 


F 4 1' 


HAI T 


^i:356 


447634 




ISi' W0PK3 


vi'/S"^? 


60177? 




JMP ADOACl 


^-i^Si^a 


10611^? 




JMS GEMRAN 


.19Zf>l 


1061?6 




.EJECT 



/LINK = 

/AC = 52'^2*53 

/?S?S?5 

/000001 

/AC = 

/ERRORl ADD K2525 TO K5253 FAILED 

/error; link not A 2ERn, CARRY FAILED 



/LINK 


= 0, AC 


/AC = 


mill 


/AC = 


333333 


/AC r 


666666 


/AC = 


333333. 


/AC = 


111111 


/AC = 


777777 


/AC = 


777777 


/AC = 






LINK = 1 



/ERROR; ADD SERIES FAILED 

/ERROR; LINK NOT A 1 
/CHECK DONE LOOPING 

/LOOP 
/GET NO. FOR NEXT LOOP 



MASEX9 
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1 1 tf 



/Anu RANnOH PAIRS TEST 



H5*362 


10610? 


0?363 


74110(« 


»?364 


740001 


0?365 


741700 


0P366 


6023"6? 


a?367 


043016 


(d?370 


740001 


(()?371 


043017 


MP372 


10610? 


(a?373 


741100 


I3P374 


740001 


H?375 


741700 


H?376 


602377 


0?377 


043020 


ia?4C^0 


740001 


0?4P)1 


043021 


H?402 


777777 


fe»?403 


043027 


07404 


744000 


H?4P»5 


203021 


0?4Pt6 


343017 


0?4«'7 


741400 


07410 


347'53? 


0?4ll 


04302? 


0?412 


20301ft 


0P413 


744000 


0?414 


343020 


0P415 


741400 


0P416 


347537 


07417 


04302:^ 



/ 






RAMAHD 


JMS 
SPA 
CMA 
SNA 


GENRAN 




JMP 


RANADD 




OAC 


Apns 




CMA 




MINUSA 


OAC 


ANEG 




JMS 


GENRAN 




SPA 






CMA 






SNA 






JMP 


MINUSA^l 




DAT 


BPOS 




CMA 




MINUSB 


DAC 


BNEG 




LAW 


-1 




DAC 


PASS? 




CLL 






LAC 


RNFG 




TAD 


ANEG 




S2L 






TAD 


Kl 


MINSAB 

/ 

/NOW GFN 


DAC 


SUMNEG 


FRATF 


A ♦ B 




LAC 


APOS 




CUL 






TAD 


BPns 




S2L 






TAD 


Kl 


APLUSB 


DAC 


SUMPOS 




.EJECT 



/GET RANDOM NUMBER 
/♦ NO 

/- MAKE IT ♦ 
/0 NOT ALLOWED 

/IT IS ♦ A 
/I COMPLEMENT 
/IT IS -A 

/GET NEXT RANDOM 
/♦ NO 
/- MAKE ♦ 
/0 NOT ALLOWED 

/IT IS ♦ B 
/MAKE liS COMP 
/IT IS - B 



/RESTART HERE TO REGENERATE NEW COMPARE 
/-R -A 
/EOC IF ADD 
/YES MAKE CARRY 
/SAVE -A -B 



/GET ♦A 



/♦B 






/EOC 


IF 


ADD 


/YES 


ADD 


CARRY 



USEX9 



PAHL 44 



ii:'4?M 
>1?4?2 

i<):m?4 

^''4?5 



i^?4?6 
»?4?7 

vir430 

WP431 
k!)?432 
HP433 



i<}?43 4 
HP435 
i^P436 
(/1P437 
WP440 
t^?441 
0P442 
^^?443 
(/)?444 
HP445 

l^?446 
C^P447 
i^ ?■ 4 5 
i/)?4^1 
a?4«>2 
tlP453 



PH3O20 
744(^0^^ 
3431M7 
74i4f1(^ 
347S3V\ 

H43Pi;?4 



2^131^1^ 
744l?i0P' 

343(^21 
741400 

34753!^ 
04302^ 



203023 
751100 
207654 
74i?00 
207653 
042464 
04251? 
042627 
042644 
04266? 
042701 
042721 
04274? 
042764 
042540 
042566 



/NOW GFNKHAT 
I A 
HL 
TA 

TA 
PMINSA HA 
/ 
/NOW GFNt'KAT 

LA 



F R-A 

r &POS 

L 

n ANFG 

I 

n Ki 

r MMASUM 



F 

f: 

l. 

L 

n Ki 



A-H 

APns 



BNLG 



AMINSB 

/ 

/IF A+B IS A 

/MAKF OFLOW 

/IF A+8 IS N 

/OVERFLUW TE 

/ 

I A 
SP 
LA 
SN 
LA 
HA 
RA 
DA 
DA 
HA 
OA 
OA 

nA 

OA 
HA 
DA 
.E 



CLI 
TAI 
S?| 
TAI 
nAH AMRSUM 



N nVFRFLOW SITUa 
TEST*^ THAT APPLY 
OT OVERFLOW MAKE 
ST THAT APPLY = 

r SUMPOS 
A!CLA 

C KSNL 
A 

C KS/L 

C OFLCKl 

r nFLCK3 

C OFLCHl 

r nFLCH2 

C nFLCH3 

n nFLCH4 

n 0FLCH5 
C nFLCH6 
C nFLCH7 

r nFi CK5 
r nFLCK7 

JECT 



/GFT B 
/H-A 

/Fnc 

/YFS AOD CARRY 
/SAVF B-A 



/GFT A 

/-R 

/FOC 

/YFS ADD CARRY 

/A-B 

TION 
r SNL 



S2L 



/GET A*B 

/STILL POS RFSULT 

/NFG RFSULT IS OVERFLOW 

/AC = SNL IS OVERFLOW 

/♦ RFSULT IS NO OVERFLOW 

/SFT UP ALL OFLOW 

/TESTS WHERE OFLOW 

/MAY OP MAY NOT OCCUR 

/AC s SNL IS A*B OFLOW 

/AC s S2L IS A+B NOT OFLOW 

/IF A*R OFLOW -A-B DOES ALSO 

/IF A*B NOT OFLOW 

/THEN NONE OF THESE 

/ADDS CAN OVERFLOW 



IUSEX9 PAGE 45 
1 1 1 1 



k»?454 


744(10PI 


k1?455 


2«301<S 


^?4'56 


303PI2PI 


9i9A57 


543023 


k5?460 


602464 


0?4ftl 


740040 


»?462 


203023 


0?4f3 


740040 


tl?464 


741400 


H?4ft5 


740040 


a?466 


762454 



/NOW 00 A rOMPLETE SERIES OF 

/ONES COMP ADDITIONS 

/SHOULD GET THF SAME RESULTS AS 

/THE TAD'S WITH FOC TAD (1 

/ 



/FIRST 

/ 

APLSRT 


TFST A+B 


CLL 






LAC 


APOS 




ADD 


RPOS 




SAD 


SUMPOS 




JMP 


.♦4 


F401 


HLT 






LAC 


SUMpOS 




HLT 




OFLCKl 


S2L 




F402 


HLT 






LAW 


APLSRT 




.EJECT 



/FOR OVERFLOW CHECK 

/GET A 

/A*B 

/SHOULD ■ PREVIOUS A+B 

/OK 

/DISPLAY I'S A*8 

/GET 2'S COMP GEN 

/DISPLAY 2*S A*B 

/OR SNL IF OVERFLOW 

/LINK OR OVERFLOW FAILED 

/MAKE JUMP FOR SCOPE LOOP 



MA'^FW 



PAHt 4ft 



t t t t 



v : 4 (^ 7 

i1 '•> 4 7 tl 

nr47i 

tl>472 
n: 473 
n: 474 
/)', 4 75 
^r>476 
1^-^477 



^1V5P»5 
0;- 5P'6 
tl?5(i7 

H?51 1 

0?513 
^i?51 4 



H P 5 1 5 
fc1?51 6 
H?517 

^?5?3 
H?5?4 
k^?5?5 

v^?5?7 



7 4 4 11 It (^ 

3Pl3i^l(*i 
543^2"^ 
6M2477 
7 4 iJ) (1 4 f^ 
^l^3ii2H 
74HH4(^ 
74l4(1W 
7 4 ;i 4 C' 
762467 



744!^0P' 
2P'3P'17 
v3M3(^21 
5431^22 
61^2'^!? 
740PI4(^ 
2t^3fi2? 
74004(1 
7 4 1 4 M t^i 
74M04PI 
76?^P)0 



74400P' 
2M302P' 
3 PI 3 ^ 1 7 
543PI24 
602''2'^ 
7A^V^A^ 
203CV4 
74Hfl4PI 
74140PI 
740H4(>' 
762'^1^ 



/2^'0 TFST -H*i 


^ 


AMNSMT 


nil. 






1 AC 


BNEG 




ADO 


APns 




SAO 


AMMSUM 




Ji^P 


. *^ 


r4P3 


HLT 






I AH 


AM^SUM 




HLT 




nrLCK2 


S?L 




F4H4 


HLT 




/ 

/NOW 3RU 


LAW 


AMNSRT- 


TFST 


IS -A -B 


MAPLMB 


CLL 






LAC 


ANFG 




ADO 


PNFG 




SAO 


SUMNFG 




JMP 


. +4 


F4(^5 


HLT 






LAH 


SUMNEG 




HLT 




nFLCK3 


Sf.i 




F' 4 ei 6 


HLT 




/ 

/rnuf^TH 1 


LAW 


MAPLMB 


FEST 1 


[M THIS SERIES 


/IS TEST 


8-A 




PMNSAT 


CLL 






LAC 


BPOS 




ADO 


ANFG 




SAO 


F^MASUM 




JMP 


. +4 




HLT 






LAC 


RMASUM 




HLT 






SZL 






HLT 






LAW 


HMMSAT 




.EJECT 



/GET A 

/A-B 

/SHOULn r PREVIOUS A-8 

/OK 

/OISPLAY I'S A-B 

/DISPLAY 2'S A-B 
/SHOULn NOT OVERFLOW 



/MAKE JMP FOR SCOPE 



/GET -A 

/PLS -B 

/SHOULn 

/OK 

/DISPLAY l»S -A-B 



PREVIOUS -A-8 



/DISPLAY 2»S -A-B 
/OR SNL 
/LINK FAILED 

/MAKE JMP FOR SCOPE 



/GET B 

/Ann -A 

/SHOULn = PREVIOUS B-A 

/OK 

/DISPLAY I'S B-A 

/DISPLAY 2'S 8-A 
/CAN NOT OVERFLOW 
/OVERFLOW FAILED 

/MAKE JMP FOR SCOPE 



'USEX9 PAGE 47 
1 1 1 1 



/FIFTH TFST IN THIS SERIES 
/IS TEST (A*P)-A s B 



v1?530 


744H0PI 


AHMATS 


CLL 




HP531 


2f13023 




LAC 


SUMPOS 


vi?5:^2 


3K3PI17 




ADD 


ANFG 


MP533 


543PI20 




SAn 


Rpns 


0?5.'^4 


602^^4^ 




JHP 


.♦4 


MP535 


740(^4Pl 


K4t^7 


HLT 




v^?536 


2PI3PI2(^ 




LAC 


Rpns 


i«?537 


740Pi4Pt 




MLT 




kfl?540 


74140(^ 


(1FLC'<5 


S2L 




HP541 


740(^4P) 


F4P'8 


HLT 




MP542 


762'J3f' 




I AU 


ABHATS 



/CAN OVERFLOW 
/ILLFGAL LINK 

/MAkE 



SNL IF A*B OVERFLOW 

jMp For scope 



/SIXTH tfst in This serifs 

/IS TEST (R-A)-8 s -A 



4)?543 


744t'>00 


RHAMOT 


CLl. 




v^?544 


203P(?4 




LAC 


RMASUM 


0P545 


303021 




Aun 


RNFG 


ii?5A6 


543017 




SAD 


ANFG 


\A?'iA7 


602553 




JMP 


.♦4 


^7559 


740040 


F409 


HLT 




<A?5^1 


203PI17 




LAC 


ANFG 


^9552 


740040 




HLT 




k3?553 


741400 


nFLCK6 


SZL 




0P554 


74004(^ 


F410 


HLT 




0P555 


7A2543 


/ 

/SFVFNTH 


LAW 


RMAMRT 






TFST 


IN THI 






/IS (-A- 


P)*A : 


: -P 


t1P556 


744(''0I?I 


MAPPAT 


CLL 




^?557 


20302? 




LAC 


SUMNFG 


^?560 


303(^16 




Aon 


APns 


HP561 


543(^21 




SAD 


RNFG 


HP5(^2 


60256'S 




JMP 


. ♦4 


0-^563 


740040 


F:411 


HLT 




l^?5f4 


203021 




LAC 


RNFG 


H?5A5 


740040 




HLT 




M?566 


741400 


nFLCK7 


S?l 




/1?5^7 


740040 


1^41? 


HLT 




07570 


762556 




LAW 


MA«PAT 



/CAN NOT OVERFLOW 



/MAKE JMP FOR SQOPF 



SERIFS 



/CAN BF OVERFLOW IF A+R OVERFLOW THEN U 
/ILLEGAL LINK 

/MAKE JMP FOR SCOPE 



EJECT 



HA>t:Vy PAHL 48 



>1'S71 
,\' bl2 
^' ^17> 
.1; S74 
1/1 '. S 7 5 
'A- bib 
^?bll 
1,1 T' 6 1^ H 
vr-" 6 n 1 

n : ■ 6 ^1 ? 



\A'yb\Ab 

H ■ • 6 (^ 7 
k1 C^ 6 1 
H?61 1 

/) ' ' 6 1 3 

'1>'61 4 
/; (S13 



74 41'' 01^ 

3C'3!'i;>(^ 
'5 4 31M^ 

6 'z' 2 <^ H 1 

7 4 1" 4 W 
203!M6 
7 4 H tM (^ 
74 1 4 00 

7 4 1-* 4 Vi 
762S71 



; c; 4 1^" L^ 1 
3 (;i 3 '.» 1 ^ 
'34;5'/l<^ 

; 4 CM t' 
2 fri 3 M 1 (S 
7 4 ;^ "< 4 (^ 
7414(^0 
7 4 ^ (M f 
7 (S 2 ^ H 4 



/tiGM 



M 1 3 



fin cKi 

f 41 4 

/ 

/9f H 
/NOW 

/ 



(:415 



nPLCK' 

r4i 6 



TM Tt<;T 

A-tn >H 

T 



rLi 

I AT 
AOfl 

sah 

JMP 
HLT 

lah 

HLT 
S«fL 

HLT 
I AK 



OF THF 
= A 

AMHSUM 
HPOS 
APns 
•f /J 



SEPIFS 



APns 



AMmPpT 



TrbT OF SFRIES 
TEST AC = 777777 



HLL irLASCMA 
AOn APOS 

APOS 

. •»-4 



APOS 



SAO 

JMP 

HLT 

t AT 

HLT 

S?L 

HLT 

LAW Mt^ACPA 

.h JECT 



/CAN NOT OVtRFLOW 

/MAKF JMP FOP ScnPF 



/SET AC = 777777 
/♦ A 

/SHQDLn = A 
/TEST LINK 
/FAiLtn RESULTS 

/DISPLAY A 
/CANNOT OVERFLOW 
/OVEPFl OW FAILED L - 1 

/MAKE JMP FOP SCOPE 



HASEy<) PAGE 49 

1 1 1 1 



i4?6l7 
vl?6?2 

v4?6?7 
v4?63H 
HP631 



V4P632 
0P633 
v1?634 
HP635 
iA76Zb 
W?637 

v1?641 
0?642 
0P643 
07644 
1^7645 
H?646 



754PIH1 
3PI3PI1(S 
3H3Pi2t^ 
3(13f'l7 
543P!2t^ 
6P)2627 
74UPI4P' 
2Pl3Pi2f' 
74H(14PI 
74l4«Pi 
7414 PI4« 
762<^1(S 



754CI(^1 
3PI3«1(S 

3Pt3(^2'^ 
303(^17 
303017 
543024 
602644 
74l(}040 
203024 
740040 
740400 
74(3040 
76263? 



/THL NFXT 
/A^E ADD 
/OF WHICH 
/COMPUTf n 
/ 

/FIRST SF 
/SFt ARMA 
/NOW T»Y 
SEfvS'n 



E417 



OFI C^^l 
F418 



/HAVF TES 
/SFE BMNS 
/NOW TRY 
SERS?i2 



SLf*lFS OF TESTS 
SFUDENCFS THE RESULTS 
HAVE ALRFAnY BEEN 
ANH VERIFIED 



RILS 

TS F 

A + B- 

HLL 

ADD 

Aun 

AUn 
SAP 
JMP 
HLT 
LAC 
MLT 
S^l 
MLT 
LAW 



TESTS A+P OK, THEN (A+R)-A s 8 
OR SHORTER TEST OR APlSRT OR M0ACPA 
A s B 
!CLA!CMA 

APOS 

BPns 

ANFG 

npos 

. +4 



Rpns 



SERS01 



/OR SNL IF A*8 OVERFLOW 
/LINK FAILURE 

/MAKE JMP FOR SCOPE 



F419 



OFl CH? 
F 4?0 



TFD B- 
AT FOR 
A+B-A- 

PLL ;c 
A on A 
A on H 

ADO A 

Aun A 

SAO R 

JMP . 

MLT 

I AC M 

MLT 

SNL 

MLT 

LAW SEWS0? 

.EJECT 



A PREVIOUS 

SHORTER TEST 
A s B-A 
LA :CMA 
Pns 

pns 

NFG 
NFG 
MASUM 
■••4 



MASUM 



/OR SZL IF NO OVERFLOW 

/MAKE JMP FOR SCOPE 



tftt 



/HAVF TL^^TFlJ (R-A)-H s -A PRFVIOUS 
/Sft HMamhT for SHORTFH TfST 
/NOU TWY A+H-A-A-a s -A 



'■'^'6 4 7 


7S41''H1 


SEPSfi3 


rii.; 


[PLA fCMA 


vlVft'SH 


3tl3'M> 




A on 


APns 


v^P6^1 


3 (^ 3 1^ ;> 1/ 




Aun 


RPns 


k^96^J? 


3t^3(M7 




AUfl 


ANf G 


wi; 6^3 


3H3'.n7 




Aon 


ANF G 


H''6'=i4 


3»3''1?1 




Aun 


MNFG 


v1"6'=i'> 


443^^1.7 




SAO 


ANFG 


^;6'=i6 


(^(^;;'ftft'? 




JMP 


. +4 


iir6S7 


74H^I4'' 


F4P1 


HLT 




H ?- 6 'i « 


21^3(^17 




1 Af" 


ANFG 


HP6frl 


741^1^41^ 




HLT 




^r.66? 


7414P)C" 


nFLC'l3 


S<?L 




M06 63 


74t^(MP' 


F4?? 


HLT 




v1'/6 6 4 


7i^p647 


/ 

/HAVF." ■ 


LAW 


StRSpi3 






rfsT -A- 


-P MOW TRY 






/SFE MAPI MR For shorter 


vi P 6 6 5 


7S4C^01 


SERSiM 


rLI 1 


•TLA jCMA 


<A76f^6 


3P'3C"1<S 




ADD 


APns 


:/)r-'66 7 


3Pi3ti?M 




Aon 


Rpos 


/) J' 6 7 H 


3f13f^1 7 




A 00 


ANFG 


^?671 


3^13^17 




ADH 


ANFG 


i^?67i> 


3«3i'-^?l 




A on 


RNFG 


0';673 


3P'3i^?1 




Aon 


PNFG 


v)P6 74 


^431^2? 




SAf) 


SoMNFG 


H:.>67i5 


6^^27H1 




JMP 


. +4 


1^^676 


74Mtl4l^ 


F4?3 


HLT 




V1-677 


2<^5'^?.? 




LAP 


SU^NFG 


/:'7l^H 


JAidiAAVi 




HLT 




'/5?7(^1 


74140C^ 


nri CH4 


Sj?L 




1^ '^ 7 ?> 2 


74H(MC^ 


F4?4 


HLT 




'^P7^^3 


Jh2(^bb 




1 AW 


St'^Sl^4 



/SNL IF A*R OVERFLOW 
/OVERFI. OW FAILED 

/MAKE JMP FOR 

A+R-A-A-R-R s -A-B 
TEST 



SCOPE 



/SNL IF A+B OVERFLOW 

/OVERFLOW FAILED OR LINK FAILED 

/MAKE JMP FOR SCOPE LOOP 



LJETT 



riASEX9 PARE 


•51 








1 1 1 1 














/HAVF 


TESTFD ( 


[-A-B)* 






/USE mahpat for shor 


«?7P4 


754P)01 


SERS'^5 


rLL!CLA!CM 


0P705 


30301ft 




AOD 


APns 


H?7P)6 


303020 




ADD 


RPns 


^?7Pi7 


303017 




ADD 


ANFG 


^?710 


303017 




ADn 


ANEG 


HP711 


303021 




ADD 


BNFG 


(^?712 


303021 




ADD 


BNFG 


M?713 


3030KS 




AOD 


APOS 


H?714 


543021 




SAn 


RNFG 


H?715 


602721 




JMP 


.♦4 


MP716 


740040 


F4?5 


HLT 




t1?7l7 


203021 




LAC 


RNFG 


kJ?7?0 


740040 




MLT 




i8?7?l 


740400 


nFLCH5 


SNL 




0?7?2 


740040 


F4?6 


HLT 




13P7?3 


7^2704 




LAW 


SERS05 



0?7?4 
0?7?5 
0?7?6 
0?7?7 
0P730 
0P731 
0?732 
07733 
k)?734 
0P735 
0P736 
0?737 
idP740 
0P741 
0P742 
0?743 
0P744 



754001 
30301ft 
303020 
303017 
303017 
303021 
303C121 
30301ft 
30301ft 
54302*5 
60274? 
740040 
203025 
740040 
741400 
740040 
762724 



-R 



/OR SZL IF A*B 00 NOT OVERFLOW 
/LINK OR OVERFLOW FAILED 

/MAKE JMP FOR SCOPE 



/HAVE DONE -P*A PREVIOUSLY 
/NOW DO A*R-A-A-P-B*A*A = -H*A 
/USE AMNSBT FOR SHORTER TEST 



SERS'^6 



E4?7 



nFLCH6 

f:4?8 



CLLICLAICMA 

Aon APnS 

AOD BROS 

AOn ANEG 

AOD ANFG 

AOD BNFG 

AOD BNFG 

AOD Apns 

ADD APOS 

SAD AMRSUM 

JMP .44 

HLT 

LAC AMRSUM 

HLT 

SZI 

HLT 

LAW SERS06 

.EJECT 



/OR SNL IF A*B OVERFLOW 
/OVERFLOW OR LINK FAILED 

-/MAKE JMP FOR SCOPE 



■<^<Z)(^ PACF '^2 



^9745 
i'i;'746 
il''74 7 
k) y 7 "=; 

My7«^l 

HP7^3 
t1?7'54 
H'^7'=i«5 
kiv7'=i6 
H:'7f57 
' 7 <s 

i'l?7(S2 
i^'^7fr3 
i'1'/7f.4 
k) '57(^5 
H '/ 7 ^ 6 



i^'- 7i^7 
0?770 
/.?771 
^:172 
A:'77Z 
/)'/774 
HP775 
n^776 
^^777 

k3:<t^pi2 

/)7fr1(^4 

0:^0c^7 
^1 :^ n 1 



754l''01 
303f If^ 
3^3^21^ 
3t'3Pil7 
303in7 
3031^21 
3031121 

303(^1<S 
303^52(1 
543P'1<^ 
602764 
740040 
2P13(il6 
740(^40 
740400 
74004C 
762745 



443027 

603011 
203016 
4 30 20 
2031^21 
04 3''' 17 
740'/01 

4 3C'ilft 
203'/'2'^ 

740001 

043021 
203(^24 
4 0010 
203fi2'> 
4 30 24 
2C1001H 
043(^2"=^ 
602454 



/HAVF nUMt {-B+A)+B PRFVIOUSLY 
/NOW IjnL A + fJ-A-A-8-B*A + A + B = A 
/USf AMHPflT FOR SHORTER FST 

SEPS07 rLL'TLAICMA 
ADD ARTS 
AOn MPOS 
A on ANtG 
A on ANFG 
AOn MNFG 
AOn RNFG 
ADO APnS 

Aon Apns 

ADO RPOS 
SAP APns 
JMP .♦/t 
f4?9 HLT 

LAH APOS 

HLT 

SNI 

HLT 

LAW SEPS07 

K OMt PASS 

ALL H CONSTANTS A 
MAKF ALL A CONSTANTS R 



oFi ch: 

F 4 3 

/ 

/AFTf 

/MAKF 

/A^iD 

/ 

noMC'i 



IS? 


PASS2 


JMP 


CKLP 


1 AC 


APns 


OAC 


PPriS 


t AC 


PNFG 


nAC 


AMFG 


CMA 




OAC 


APns 


LAC 


Rpns 


CMA 




OAC 


PNCG 


I.AC 


HMASUM 


HAC 


10 


LAC 


AMi^SUM 


OAC 


RMASUM 


LAC 


10 


OAC 


AMMSUM 


JMP 


APLSRT 


.LJECT 



/OR S?l IF A+8 NOT OVERFLOW 
/LINK OR OVERFLOW FAILED 

/MAKF JMP FOR SCOPE LOOP 



/?ND PASS 

/YES DONE 2Nn 

/A 

/IS NOW R 

/RNFC, 

/IS ANFG 

/R IS A 

/ANEC, 
/IS NFG 



/H-A 



/A-B 

/IS NOW A-R 

/IS NOW A-R 
/OVERFLOW SERUP 



HASEX^ 



PAGE SS 



0:^011 


447^3V? 


HKIP 


IS? 


W0RK3 






/CHECK DONE LOOPING 


n:'^? 


6(^2-^6? 




JMP 


RANAOC 


) 




/LOOP 


H."^H13 


1(1610? 




vJMS 


GENKAN 


1 




/GET NO. FOR NEXT I OOP 


iii:^0i4 


1^612^ 




JMS 


CKNO 








/).1015 


6P13(i3^' 


/ 


JMP 


AOFOON 


1 






H."^016 


H00PI0PI 


/ 

APOS 


fl 




/A 






n:^0i7 


000PI0P» 


ANf.G 







/-A 






t4.-^0?p) 


00000P< 


RPOS 


(^ 




/B 






t1>"^M?l 


00000PI 


PNIFG 


H 




/-B 






H30P2 


00000(^ 


SUMnFG 







/-A + l 


[-B) 




H>'0?3 


000(^00 


SuMPOS 


W 




/A + B 






030?4 


000000 


RMASUM 







/B*(- 


-A) 




l1.^0?5 


000000 


AMPSUM 







/AM- 


•B) 




H70?6 


00000P' 


/ 

MsKblT 



















.EJECT 









1 1 1 1 



PK^S'.) 



l^ 



1.1 7 :^ 1 






v^3042 
i/i 3 H 4 3 

1/1 :< 4 4 

143045 
H 3 4 6 
3 04 7 



i')30'50 
03051 
030'^2 
03053 
3 054 



0:^0^5 
03 056 
03 05 7 
H 3 6 
3 0^1 
3 06? 
H3063 
03064 
0:^065 
t>l :< 6 6 
3 6 7 



10610? 

043016 
7401>'01 
043^^17 



207554 
4 3 (^ 2 6 



203016 
5 3 ? 6 
740?0f^ 
603*^50 
2031^16 
2431^26 
4 3 2 ^^ 
? 3 "1 1 7 
4 3 2 1 
60 3 '15'=; 



203iM7 
243^26 
043020 
2031^16 
043021 



74400P> 
?0302i^ 
303021 
543026 
6031^6^ 
740fM0 
2030?6 
740040 
7414 00 
7 4 (M 
763^55 



/GET A WANnOM NUHBFR AND ITS I'S COMPLFMFNT 

/EACH HIT WIIL HAVF A IN ONE OF THE TWO NUMBFRS 

/MAKE THE f)IT = \ ANO ADO THE NUMBERS ROTH WAYS 

/FIRST AHD IS THE (AD IS THE ALTEREO s 1 

/SFCHNn AUn IS JH£ (MR) is the altered s 1 

/THE RESULT OF BOTH ADDS SHOULD r THE ALTERED BIT s l 

/ 

ADEDHN JMS GENRAN /GET RANDOM NUMBER 

DAC APOS /SAVE IT 

TMA /MAKE ONES COMPLEMENT 

OAC ANEG /AND SAVE IT 

/ 
/THE EIHST HIT TO pE ALTERED IS pi THEN CONTINUE TO i? 

LAC K4M0K 

HAH MSKBIT 
/ 

/SET UP N'eXT bit TO TeST - ALTERED NliMpER GOES TO rPOS 
^ISETU LAP APOS 

ANO MSKBIT 

SjfA /DOES APOS BIT = 

JMP MunNFG /NO ALTER ANFG 

I AC APnS 

XOH MSKBIT 

DAC RPOS /MODIFIED NUMBER GOES TO APOS 

LAT ANEG 

fUr RNEG /uNMOD NuMRER GOES TO BNEG 

JMP RITTSl 
/ 

/THE ONES rOMP NUMBER HAS THE PIT MODIFY IT 
MOONEG LAC ANEG 



/MOD NUMRER TO BROS 
/UNMOD NUMBER TO BNEG 
: MODIFIED NUMBER AT ADO 



/GET MODIFIED NUMBER 
/ADO UNMODIFIED 

/RESULT SHOULD s BIT CHANGED 

/DISPLAY INCORRECT RESULTS 

/DISPLAY BIT ALTERED AND EXP 
/NO OVERFLOW 
/OVERFLOW NOT ALLOWED 

/MAKE JMP FOR SCOPE LOOP 





XOP 


MSKBIT 




OAC 


PPnS 




LAC 


APOS 


/ 

/COMPLFM 

/ 

PITTSl 


DAC 


PNFG 


ENTEP 


HIT TESTl (AC) 


CLL 






1 AC 


Rpns 




ADO 


RNEG 




SAP 


MSKBIT 




JMP 


. +4 


E431 


MLT 






LAC 


MSKBIT 




HLT 




OEI CH8 


S£t 




E432 


HLT 






LAW 


MITTSl 




.EJETT 



HASfy^ PAGE 55 

1 1 1 1 







/COMP HIT 

/ 

HITTS2 


TEST 2 (MB) s 


MOniFlFD NUMBER AT ADD 


I.53070 


744000 


CLL 






^.■^071 


203021 




LAC BnEG 




/GET UNMOOlFlEn NUMBER 


^1:^072 


30302'" 




Aon Rpns 




/AOO MODIFIEO 


H:^073 


54302^ 




SAH MSKBIT 




/RESULT SHOULD * BIT C 


kl3074 


603100 




JMP ,♦4 




/OK 


0?075 


740M40 


r433 


HLT 




/DISPLAY INCORRECT RESULTS 


0:^076 


203026 




LAC MSKBIT 






0:^077 


74004(" 




HLT 




/DISPLAY BIT ALTERED AND EXP 


0.-^100 


741400 


nrLCH9 


S^l 




/SHOULD NOT OVERFLOW 


0.^101 


740040 


r434 


HLT 






0?102 


763PI70 


/ 

/PnsiTlOM 


LA^J PITTS2 




/MAKE JMP FOR SCOPE LO 






MASK BIT OVER 


1 PLACE 






/ir 17 HAS BFEN nONE CONTINUE 




\A?>lViZ 


203P'2<^ 


/ 


LAC MSKBIT 




/GET LAST 


03104 


744020 




RCR 




/POSITION 


0?tl05 


043026 




OAC MSKBIT 




/SAVE 


H?il06 


740?0(» 




S2A 




/DONE ALL BITS 


07107 


603M36 


/ 

/END OF Tl 

/ 


JMP RISETU 




/DO FOR NEXT BIT 






EST SEQDENCF 






03110 


447634 


IS? W0RK3 




/CHECK DONE LOOPING 


03111 


603030 




JMP AQFOON 




/LOOP 


03112 


10610? 




JMS GEMRAN 




/GET NO, FOR NEXT LOOP 


03113 


106126 




JMS CKMO 






^531 14 


750P!04 




LAS 




/CHECK FOR CONTINUOUS LOOP 


1^3115 


742010 




RTL 




/CK ACS ? 


03116 


741100 




SPA 






H3117 


60236? 




JMP RAMAOO 
.EOT 




/LOOP 



HAStX9 



PAGE ^6 



H31P3 


vt,' 


'1?4 
^1?6 




<1?7 
U3M 
^131 


^3132 
H3133 
03134 
^)313^ 



^3136 
t^:'137 
11 ,< 1 4 U 
.< 1 4 1 
►13142 

i^ 3 1 4 3 
^3144 
H 3 1 4 5 
03146 

07147 
lOTlSt? 
31^1 
^13l52 

H3l«S3 
k131*^4 
1^31^5 
^)31«56 

H31^7 



2f^7S31 
"547^31 
741H((11^ 
7401^41^ 

2^17*^31 
'54 7'^ 73 

741/IM4('' 

2(^7^7:7 

547^31 

74HiM(^ 

2(17'i73 
^47^73 

74lH0t^ 
74kj(14i''l 



7S0'^v)t^ 
347^531 
'547'>31 
74l(^0Pt 

74k)H4P' 

7B0Vi0f/ 

347S31 
347^73 

7 4 (^ t^ 4 (^ 

347'^73 
547^31 
7 4 14 6M l-" 

7S(1C1(;iP« 
347S73 
'54 7S73 
741^^ MM 
;4Hi'i4(^ 



/pnp-y 

/TFST 
/ 

SAOAT 



f 4 33 
/ 



F43h 
/ 



F437 
/ 



F4 36 
/ 

/SAD, 
/ 



HASIC EXEf^CISFR 
SAO 

I AC KH 
SAO KH 

HAI T 

I AC KM 
SAO k79 
HALT 

I AT K7<: 
SAD KH 
HAL T 

LAC K7S 
SAH K7S 
RKP 
HALT 



- TAPF 4 



TAH 



F439 
/ 



F44H 
/ 



F441 
/ 



F44 2 
/ 



CLA 

TAf) KH 
SAO KH 
SKP 
HALT 

CLA 

TAO K0 
SAn k7S 
HALT 

CLA 

TAO K7R 
SAO Kl^ 
HALT 

CLA 

TAn k7'^ 
<;An K7S 
SKP 
HALT 

.EJECT 



/AC = 

/ERROR, SAn K0 SKIPPED 

/AC = i/i 

/ERROR. SAO k7S FAIlFO TO SkIP 

/AC = 1 'S 

/ERRCk. SAD K0 FAILED TO SKIP 

/AC r 1 »s 

/ERROR. SAO K7S SKIPPED 
/AC = (^ 

/ERROR. SAD K0 SKIPPED 
/AC = Pi 

/ERROR. SAD k7S FAIlFD TO SkIP 
/AC = PI 

/ERROR. SAD K0 FAILED TO SKIP 
/AC = ti 

/ERROR. SAD K7S SKIPPED 



<A<rv^ PAGf. 57 

f t f t 



v1 ;< t 6 H 

V) :^ 1 ^ t 

•/ * 1 ^ 6 
1-1 :< 1 fr 7 
vl < 1 7 H 
kVH7l 
v^:<l72 
^13173 

-■■':^174 
'':<i 7^ 

.1,<17A 



H' 


U77 


/); 


■*?t10 


v^; 


■*?(^1 


/i: 


<202 


1/); 


^2^i 


i.r 


~<2?A 


^/i. 


<2^5 


vi: 


^?M6 


.i; 


^2(^7 


/I, 


<?lki 


"1 ,' 


'211 


^i .' 


<212 


^1.^213 


/: 


^214 


;-1' 


'PIS 


vi; 


'216 


/I," 


^217 


/:^??H 


\a: 


'221 



2f17S31 
547'S7;< 

7 6 lii (^ PI1 
'547S7:^ 
7(^i4'/i02 
•347^7^ 
76«t^lr14 
547^7:^ 
7(S!4l^ll^ 
5 4 7^7,^ 
7601^2'^ 
'747'^7,"^ 
7 6vlvMf^ 
74v12v1f1 
740Oi4(^ 



7'70i;^00 

'J4757J(V 

7ftHC^01 

7 4 1 P' Pt 

7601^0? 

547S7)(V 

760i'^04 

741WMM 

7 6 1^ 1 f^ 

'347S7X-L 

760'/2f^ 

7411^00 

7 6 it 4 1^ 

740?0(^ 

7 4 1) iM 



4 4 7 6 34 

6 3 1 2 f^ 
1^61 02 
1061 26 



/sraiiENi 


lAi. ^An 


/ 








LAC 


K0 




SAD 


K7S 




I AW 


1 




SAfi 


K7S 




1 AW 


2 




SAP 


K7S 




LAW 


4 




SAD 


K7S 




1 AW 


10 




SAP 


K7S 




I AW 


20 




SAP 


K7S 




LAW 


40 




S/'A 




r443 


HALT 


/ 






/TFST SAP, SKP SFRIES 


/ 


-TLA 






SAP 


K7S 




LAW 


1 




SKP 






LAW 


2 




SAP 


K7S - 




L AW 


4 




SKP 






LAW 


10 




SAP 


K7S t 




LAW 


20 




SKP 






LAW 


40 




Si? A 


' 


1:444 


MALT 


/ 


MS? 


WUi^K? 




J MP 


SaPaT 




JMS 


r,Ef-'RAN 




JMS 


TKMO 



/AT = 

/760001 

/7<S0f10? 

/760004 

/760010 

/760020 

7760040 

/ERROR, AC NT 0. CONTENTS OF 
/AC = LAST SAO THAT FAlLFU 

/AC = 

/7600fcl 

7760002 

7760004 

/760010 

7760020 

7760040 

/ERROR, AC NOT 0, CONTSNTS 
/OF AC = LAST SAf) OR SKP 

/CHECK DONE LOOPING 

/LOOP 

/GET NO. FOR NEXT LOOP 



.LJECT 



<A 


-KV^ PAf.K 


fSH 






rr 


ft 




/Tf-ST 
/ 


l)/<M 




,i,^2??i? 


P (^ 7 ^ ^ t'' 


LAT KHALT 




n.'^??3 


1^1111 




Oi'M mil 




i.???4 


^11111 




1 AC mil 




it .< ? ? S 


7409v^p 




Si^A 




.r<^?6 


/ 4 H iM 11 


f 44 5 


HAl T 




.i'*^?7 


3i^7(S5.;/< 


/ 


LAH KHALT 




t') .^ ? .■^ H 


I'^P'PP 




nZM 1222? 




^l'P.^1 


212222 




I AH 122 22 




i;'^:^;? 


7 4 9 n M 




9.ik 




^1^2:^.^ 


7 4 CI 4 '/ 


F446 


HALT 




■/i:<??^4 


2f/76'>i^ 


/ 


I.AC KHALT 




V'>.<?.^'7 


l'='3^3^ 




HifM i3"<33 




'A .< ? :^ 6 


213:<33 




LAC 13333 




'." 7 i! ,^ 7 


7 4v1'?i/1(^ 




S«fA 




n .-< 2 4 


7 4 0^41^ 


F447 


HALT 




v>.^?41 


2H7(S'5l^ 


/ 


LAT KHALT 




.1,'?42 


154444 




n^M 14444 




vi:^24 3 


214444 




LAC 14444 




vl .< 2 4 4 


740''0(?' 




SifA 




^1 T 2 4 5 


7401^4^ 


F 44 8 


MALT 




^);^246 


2f?7^5t^ 


/ 


LAC KHALT 




^-17 24 7 


I'^^St,^ 




Di^i 15555 




^l.'2'^fc' 


?.^b'^b^ 




LAH 15555 




v^.-'p^l 


74!/)20fri 




S^A 




M7.25 2 


7 4 '.^ 4 ^1 


r449 


MALT 




i'i:<2^3 


2P)7<^5PI 


/ 


LAT KHALT 




'/ 7 2 ^ 4 


1 S 6 f^' 6 ft 




n;?M. 16666 




vi;*2s^ 


21666ft 




I AC 16666 




'^:<2'^6 


74(4 2 0C'' 




Sik 




t^''2'^7 


7 4 4 1^ 


r450 


MALT 




ki7 26 


2 1> 7 ft ^ '/ 


/ 


1 AC KHALT 




H7?ftl 


157777 




n£M 17777 




.1,<262 


21 7777 




LAC 17777 




^7 2^3 


7 4 H -' t^ (■« 




S^A 




:^ 2 1^ 4 


7 4 CM Pi 


F451 


MAI T 



/AC = 74H040 

/ADDP 1111 OP «1111 



/LRROR, D£M FAILTO AT mi 
/OR ^im 

/AC = 74PI040 



/FRROR, n2M FAILED AT 1222 OR 
/02222 

/AC = 740040 



/FRROR. D2M FAILED AT 13333 OR 
/03333 

/AC = 740040 



/FRROR. D?M FAILEO AT 14444 

/OR PI4444 

/AC = 740040 



/FRROR. D?M FAILED AT 15555 
/OR 1^5555 

/AC = 740040 



/FRROR. 0?M FAILED AT 16666 

/OR 06666 

/AC = 740040 



/ERROR. DZM FATLFO AT 17777 
/OR 07777 



.EJECT 



KASExy PAGE 


•59 


t t t t 




i^:^2ft5 


2f17A5f' 


ki 1^266 


l'S2'52B 


M?267 


212^2^ 


ti,-^270 


740?00 


ilv-^271 


740(^4Pi 


^1:^272 


2(^765P' 


0:^273 


155252 


03274 


21525? 


0:^275 


74HPPIPI 


03276 


740C14PI 



03277 
033PI0 
033P'l 

033PI2 
033(^3 



033PI4 
033P»5 
03306 
03307 
03310 
03311 
03312 
03313 
03314 
03315 
03316 



03317 
03320 
03321 
03322 
03323 
03324 
03325 
03326 



207573 
157777 
740001 
740200 

740040 



754001 
307573 
157777 
740001 
740200 
740040 
74140p( 
740040 
217777 
740200 
740040 



207'^73 
152^25 
15525? 
157777 
150000 
740(^01 
750200 
740040 



F4'^2 
/ 



LAC KHALT 
ni?M 12525 
LAC 12525 
S£A 
HALT 



LAC KHALT 
DZM 15252 
LAC 15?52 
SiA 
HALT 



/AC 



740040 



/OR 02525 



/AC 



777777 



M53 

/ 

/ 

/TfST AC AFTFH A D?M 

/ 

LAC K7r> 

DifM 17777 

CMA 

SZA 
F454 HALT 
/ 
//TEST AC, LINK, ADR. 17777 OR 07777 AFTER A 0?M 



/ERROR. DZM FAILED AT 12525 



/AC s 740040 



/ERROR, 0?M FAILED AT 15252 OP 05252 



/ERROR. AC CHANGED AFTER A 0?M 



F455 
F456 



F457 

/ 

/ 

/SFQiJENTlAl nZM 

/ 



CLA'CMAICLL 

AUn K7S 

0£M 17777 

CMA 

SZA 

HALT 

SZL 

HALT 

LAC 17777 

S2A 

HALT 



F4S8 



LAC K7S 

DZM 15?52 
nZM 17777 

niH i0'^00 

CMA 

CLA'SZA 

HALT 

.EJECT 



/AC = I'S, LINK s 

/ERROR. AC NOT I'S AFTER A DZM 
/ERROR. LINK NOT 

/ERROR. D?M FAILED AT 177777 OR 07777 
/AC = 1 'S 



/AC = 

/ERROR. AC NOT I'S AFTER 
/0?M SERIES 



^^ A '' F y y 



PAGE 6M 



t t t t 



H,^3?7 


3^?^2S 




TAD 12525 


H 7 3 ."^ 1^ 


3S5?5? 




TAP 1525? 


H.^331 


3*^7777 




TAD 17777 


H.^332 


3'^0'.'''«ci 




Tap 10W00 


^^7 333 


7 4 H ? d (^ 




SifA 


i^:'33 4 


7 4 H 4 H 


F4R9 
/ 


HALT 


t4:^33'3 


447634 


FS? W0RK3 


k4:<336 


6P»3??? 




JMP Di^MAn 


W,^337 


1P161H? 




jms gemRan 


Vl 7 3 4 


1PI6126 


/ 


JMS CKMO 






/ 

/TFST 

/ 

nAfAH 


HAT 


''5 .^341 


2tl7'S74 


LAC K5lS 


,^ 3 4 2 


t^i'lUl 




OAC 11111 


i^ "' 3 4 3 


'^'^1111 




SAP 11111 


Vi'iAA 


741^0'^ 




SKP 


1^ :< 3 4 5 


740PI4P' 


F460 


HALT 


^.^346 


207'S7'S 




LAC KIPS 


t1 ."^ 3 4 7 


^'='2??.? 




HAG 12-^2? 


/)73S0 


'yb???.? 




SAO t2?2? 


A^ihl 


741^00 




SKP 


073S2 


740040 


F461 


HALT 


n:<3^3 


2(^7^>76 




LAG Kl^S 


n:'3'74 


053333 




PAG 13333 


0'3'=>5 


5533 33 




SAP 13333 


0;<3'^6 


741000 




SKP 


ki:'3'=;7 


740040 


F462 


HAl T 


iA:<5f>Vi 


2<^7'^77 




LAG K14S 


<A?5f>i 


054444 




PAG 14444 


^i:<362 


554444 




SAP 14444 


H 7 3 6 3 


741000 




SKP 


1173(^4 


740(^40 


F463 


HALT 


i.i:<3<*'5 


207600 




LAG KISS 


u)7366 


055555 




PAG 1'jS55 


.17367 


555555 




SAP 15555 


1^7370 


741000 




SKP 


^17371 


7 4 41^ 


i 464 


HALT 



.EJEGT 



/FRRPH. p!?M FAlLFD 

/CHEGK DONE I. OPPING 

/LOOP 

/GFT NO. FOR NFXT LOOP 



/AC = 11111 



/FRRPH. DAC ADR CONTENTS NOT EQUAL 
/TO AC, OAC FAILED 
/AC = 122222 



/ERROR. 12?2?2 OR C122222 CONTENTS 
/NOT s TO AC. DAC FAILEO 
/AC r 13333 



/ERROR. 13333 OR 03333 CONTENTS 
/NOT = TO AC OAC FAILEO 
/AG = 14444 



/ERROR. 14444 OR 03333 CONTENTS 
/NOT = TO AC. DAC FAILED 
/AG = 15555 



/ERROR. 15555 OR 05555 CONTENTS 
/NO = AC. OAC FAILED 



MASEy9 



1 1 1 1 



9 PAGE 


61 


«:^372 


207601 


/:^373 


056<S66 


1^:^374 


S'sbftdft 


kfl>-^375 


7 41 PI 00 


t4?376 


740040 


fe)?377 


20760? 


0?4Pt0 


057777 


n:<4Pii 


557777 


Vi.'^402 


741000 


n:^4P)3 


740040 


H?4f»4 


207605 


H,-^4PI5 


052525 


1,!)?4C^6 


552525 


i^:^4Pi7 


741000 


^,-^410 


740040 


0:^411 


207606 


H:^412 


05525? 


H3413 


55525? 


0?414 


741000 


0:^415 


740040 



^1?416 
0.-^4l7 
0:^420 
0?4?1 

0;^4?2 

0>'^4?3 

0?54?4 
0.'^4?5 
03426 
0.'»4?7 
0.'^430 
0:^431 
0?432 
0?^473 
0:^434 
0."^435 
0--^436 
0?<437 



0,^440 
0?441 

0.'^442 
03443 



744000 

20757^1- 

052525 

05525? 

057777 

051000 

051111 

740001 

750200 

740040 

312525 

31525? 

317777 

311000 

311111 

740001 

740200 

740(^40 



447634 

603341 
10610? 
106126 



F465 



r466 



P467 



LAC K16S 
OAC 16666 
SAD 16666 
SKP 
HALT 

LAC K17S 
nAC 17777 
SAD 17777 
SKP 
HALT 

I.AC K0t0 
DAC 12525 
Sad 12525 
SKP 
HALT 

LAC Kli^l 
DAC 15252 
SAD 15?5? 
SKP 
MALT 



F468 

/ 
/ 

/SFQlJENTlAL DAC 
/ 



F469 



F470 



CLL 

LAC K7S 

DAC 12525 

DAC 15^52 

DAC 17777 

DAC 11(^00 

DAC 11111 

CMA 

CLA'SifA 

HALT 

AUD 12525 

ADD 15?5? 

AUD 17777 

ADD 11(^00 

AUD 11111 

CMA 

S^A 

HAI. T 



IS? W0RK3 
JMP DACAC 
JMS r.EMHAN 
JMS CKMO 
.EJECT 



/AC = 166666 



/ERROR. 16666 OR 06666 CONTENTS 
/NOT s AC. DAC FAILED 
/AC - 17777 



/ERROR. 17777 OR 07777 CONTENTS 
/NOT 8 AC, OAC FAILED 
/AC ' 252525 



/ERROR. 12525 OR 02525 CONTENTS 
/AC = AC, DAC FAILED 
/AC = 525252 



/ERROR, 15252 OR 05252 CONTENTS 
/NOT s AC, DAC FAILED 



/L = 
/AC = I'S 



AC NOT I'S AFTER OAC SERIES 



/AC = 

/ERROR, 

/ONES 

/ONES 

/ONES 

/ONES 

/ONES 

/AC = 



/ERROR. DAC FAILED. ONE OR MORE 
/ADDRESSES NOT ONES 

/CHECK DONE LOOPING 

/LOOP 

/GFT NO, FOR NEXT LOOP 



iusny 



PAHF. h2 



H ,-< 4 4 4 


1.1,' 


(445 


/:■ 


'446 


l^ ,< 4 4 7 


H ? 


•4^14 


i1? 


14*^1 


i^>-^4*^2 


H r' 4 «^ 3 


1/1 <4S4 


1-) : 


MS", 


i^.' 


M^6 


vi: 


«4'=»7 


i/i. 


<4(Mfl 


Il,-»4(S1 


vi; 


'4fr? 


ki," 


Mfr3 


H.-^4(S4 


1*5^4^5 


i^:^466 


/; 


M*^7 


H,"^47l1 


n: 


'471 


ti ,^ 4 7 2 


vi: 


M73 


.1^474 


i/i: 


'47!j 


n: 


'476 


i^: 


'477 


t^: 


'5(^H 


ir): 


^bPl 


H 7 "5 (^ ? 


v^: 


<5W3 


0- 


>[5(?!4 


.-I .■^'> 1/^5 


/ 7 S P! 6 


'^7'^Vl 


t^ :< 5 1 M 


^^'51 1 


<A. 


<512 


^7^13 


v().-'5l 4 


1.1 : 


'515 


^1 ."^ "^ 1 6 


v1.^5l7 



2('<7'^31 
H5mM('* 
4 5 H 1 « W 
7510^1 
7 4 H H 4 pi 
5(^753? 
55H1 i^c* 
;4lt''0M 
74^1040 

M5H1 dPi 
45M1 t^t^ 
751^01 
7 4 id I M i^ 
51^7554 
b5H10^ 
741(/'HH 
740M4(^ 

2(^7^?1 

H5i^1 C1H 
4501 ilC^ 
7511^01 
74H^i4M 
5f1757T 
55i/11 t^f'' 
741i'^(^(^ 
7 4 tl f-M (^ 

?M76?1 
1^57777 
457777 

7 5 1 C P1 1 
7 4 CM l^ 
5(V^7.-^ 
557777 

7 4 1 1^ CI 
740'?'40 

2071^27 

751(^01 
7 4 '. ■ 4 
507^54 

7 41!''0f^ 



/Tf ST 

1 s -' A r 



F 471 



I- 47? 



f 4 73 



F 474 



F 475 



F 476 



I 477 



F"4 78 



F 479 



IW/ 



I AT K0 
HAT 'l0mPt 
IS? 10100 
SKP'CLAtrMA 
HALT 
AND Kl 
SAn 1010PI 
SKF> 
MAI T 

I AC M4.10K 

HAT 10100 

IS/ 10100 

•^KP'fLAlCMA 

HALT 

ANP K4'^0K 

SAn 10100 

SKP 

HALT 

LAP Ml 
RAT 10100 
IS? Ij;i100 
SKP'TLA ;rMA 
HALT 
AND K7S 
SAH 10100 
9KP 
HALT 

I Af Ml 
OAC 17777 
IS? 17777 

SKP'TLA iTMA 

MAI T 

A NO K7*^ 

SAO 17777 

SKP 

MAI T 

LAr M4''i0K 

HAC 17777 

IS? 17777 

SKP'TLA 'HMA 

MALT 

ANP K4'''0K 

SAP 1 7777 

SKP 

.EJECT 



/AC = 



/ERROR. ISi? SKIPPFD 
/AC = 1 



/ERROR, 10100 OR 00100 NOT i 
/IS? FAILED 
/AC P 377777 



/ERROR. IS? SKIPPFU 



/ERROR. 10100 OR 00100 NOT 400000 
/IS2 FAILED 
/AC = 777776 



/ERROR. IS2 SKIPPED 



/ERROR. 10100 OP 00100 NOT 777777 
/IS2 FAILED 
/AC = 777776 



/ERROR. IS? SKIPPED 



/ERROR. 1777 OR 07777 NOT 777777 
/IS? FAILED 
/AC = 377777 



/ERROR. IS? SKIPPED 



HASEX9 



1 1 tt 



9 PACE 


63 






0:^520 


740040 


F4ft0 


HALT 


n:^52i 


207531 




LAC K0 


««-^5?2 


057777 




nAC 17777 


14?5?3 


457777 




IS? 17777 


kJ35?4 


751001 




SKPiCLA'CMA 


fe)?5?5 


740040 


F4R1 


HALT 


H?5?6 


50753? 




ANn Kl 


Hv-^5?7 


557777 




SAO 17777 


0?530 


741000 




SKP 


k)?5:^l 


740040 


r4H2 


HALT 


«:^532 


750000 




CLA 


0.-^533 


247573 




XOP K7S 


'i(5?534 


051111 




nAC 11111 


B."^??? 


451111 




IS? 11111 


0:^536 


740040 


MH3 


HALT 


H3537 


211111 




LAC mil 


H7540 


74WP00 




S«?A 


k1.-^541 


740040 


F4fl4 


HALT 


M.-^542 


750000 




CLA 


ld:»543 


247573 




XUP K7S 


0.'^544 


052?2? 




nAC 12?2? 


K):^545 


45222? 




IS? 12'22 


14?546 


740040 


E4R5 


HALT 


03547 


21222? 




LAC 12?2? 


i^^s'sa 


740200 




S^A 


0:^551 


740040 


F4H6 


HALT 


0.T5S? 


750000 




CLA 


03553 


247573 




XOW K7S 


0?554 


053333 




HAC 13333 


0:^555 


453333 




IS? 13333 


0.-«556 


740040 


F4H7 


HALT 


03557 


213333 




LAC 13.^33 


i^:^5^0 


740200 




Sj?A 


0:^561 


740040 


F4PB 


HALT 


03562 


750000 




CLA 


03563 


24757\^ 




XUP K7S 


0.-^564 


054444 




nAC 14444 


0:^565 


454444 




. IS? 14444 


0.^566 


740040 


E4P9 


HALT 


0.-^567 


214444 




LAC 14444 


0,-^570 


740200 




S£A 


07571 


740040 


F4Q0 


HALT 



/ERROR, 17777 OR 0777 NTOT 400000 
/iSi FAILED 



/ERROR. ISE SKIPPED 



/ERROR, 17777 OR 07777 NOT 1 
/IS2 FAILED 
/AC = 
/AC = I'S 



/ERROR. IS2 FAILED TO SKIP 



/ERROR. 11111 OR 01111 NOT 
/ISZ FAILED 
/AC = 
/AC = I'S 



/ERROR. ISZ FAILED TO SKIP 



/ERROR, 12222 OR 0?222 NOT 
/IS? FAILED 

/AC = 1 'S 



/ERROR. ISZ DID NOT SKIP 



/ERROR. 13333 OR 03333 NOT 
/ISZ FAILED 

/AC = 1 'S 



/ERROR, ISZ DID NOT SKIP 



/ERROR. 14444 OR 04444 NOT 
/ISZ FAILED 



.EJECT 



u- 


■'FVs* pa(;L 


64 






t t ■ 


^ t 

u .•' s 7 ;? 


7'^0l1«(?' 




HLA 




^5 ■< *? 7 ;5 


^47^73 




yoR K7'^; 




/) .< S 7 4 


HS5'iB'S 




DAT 15555 




.',<'>7 5 


455Sf3S 




]sy 15555 




vi :? ^5 7 6 


74HC^4l^ 


F4'^l 


HAl T 




(/l.<S77 


215'^5'^ 




1 AC 15'^55 




1/1 :' 6 1'' n 


74H;^0(^ 




Si'A 




k'l ,* 6 (^ 1 


740(^4M 


F4'52 


HAl T 




H * 6 ti ? 


;*^ni''i?)r'' 




CLA 




^),^6C''3 


247^7;^ 




VOF-' K7S 




H "« 6 <^ 4 


v^ '56666 




OAn 16666 




vl.<6(^5 


4^6666 




IS? 16666 




(^'<6l^6 


74H(^4i^ 


F493 


HAl T 




i^r<6f"7 


i?1 6666 




I AC 16666 




M i' (S 1 M 


7 4 11 ? l^M 




S^A 




^i:<6i 1 


7 4 H '-1 4 (^ 


F494 


HAl T 




^^7 61? 


7 ^S 1^ (>\ M t^i 




CLA 




v^ :' 6 1 .5 


?47^7.3 




X(JP K7S 




1^1 r< 61 4 


l<5S7777 




HAC 1 7777 




'■'>^^fi^'y 


457777 




IS? 17777 




/).<A16 


7 4 14 ( M (^ 


F4'^5 


MALT 




0361 7 


217777 




LAC 17777 




tl .« h ? 


740?t^(' 




S£A 




/i:<6?l 


7 4 W M 4 1^ 


F:496 


HALT 




■/I .^6?'^ 


7H0(-^l?)(^ 




CLA 




i/ITAP^^ 


247'='7.^ 




yyp K7^; 




v^,<6^4 


052'^?'^ 




DAC 12525 




A :<f)'?^ 


4'^2^2S 




IS? 12'^25 




/) 7 6 ? 6 


74Ht^4&' 


F4«7 


MAI T 




^I7 6?7 


21?'^?'=^ 




I AC 1252^^ 




i4 > 6 ."^ l^ 


7 4 H ? •/ 1'» 


/ 

F 4"H 


Si?A 




,1.<6:^1 


740" 4H 


HALT 




.i:'63? 


7^0t'0(^ 




CLA 




i.).^6.'^3 


247S7:^ 




XilR K7^ 




■.i:'-6,3 4 


HS'S^^? 




HAC 15'52 




vK"^6715 


4Se>PS2 




IS? 15'<^52 




i'):<6 36 


74l^'Mvl 


F 409 


MALT 




-^ 7 6 :^ 7 


215252 




I AC 15252 




i-l .< 6 4 H 


7 4 H :' H f^ 




'??A 




/I ,' 641 


7 4 n :m (^ 


P'5(''M 


MAI T 



/AC = 1 'S 



/FRHnR, IS? DID NOT SKIP 



/F.RRnk. 15555 OR (^5555 MQT P) 
/IS? FaILEO 

/AC = 1 'S 



/ERROR. IS? DID NOT SKIP 



/E.RRnR. 16666 OR (^6666 NOT (A 
/IS? FAlLLn 

/AC = 1 'S 



/ERROH. IS? DID NOT SKIP 



/ERROR. 17777 OR P»7777 NOT H 
/IS? FAlLtn 

/AC = 1 'S 



/FRROR. IS? DID NOT SKIP 



/ERROR. 12525 OP (^2525 NOT 
/IS? EAILEO 

/AC = 1 'S 



/ERROR. IS? DID NOT SKIP 



/ERROR. 1525? OR ei5252 NOT H 
/IS? FAILEO 



EJECT 



riASEX9 PAGE 65 
1 1 T r 



H:^642 
H?;643 

i^:'645 
i«?646 
kJ?647 

H?6!50 

k)76«>3 
^^.■^654 

14765 7 

n:^660 

k1."^6M 
v4,'^662 

n:^663 

143664 
1^3665 
03666 
H3667 
f13670 
H3671 



036J.2 
1,43673 
^3674 
k43675 
H3676 
1^3677 
H37PI0 
k)37Pil 
H37P'2 
fc437(43 
1/43704 
H3705 
143706 
143707 
|<43710 
03711 
03712 
03713 
03714 
03715 



20757|1>* 

052525 

055?5? 

057777 

051000 

050100 

452525 

741000 

455?5? 

741000 

457777 

741000 

451000 

741000 

450100 

740040 

312525 

31525? 

317777 

311000 

310100 

740001 

740200 

740040 



20762-^ (p 

052525 

05525? 

057777 

05^000 

050100 

45?525 

45525? 

457777 

451000 

450100 

750000 

3125 25 

315252 

317777 

311000 

310100 

24755^4 
74 200 
740040 



/TFST 
/ 



F501 



IS?, SKP 

LAH 

HAC 

DAC 

HAT 

nAC 

DAT 

IS? 

SKP 

IS? 

SKP 

IS? 

SKP 

IS? 

SKP 

IS? 

MALT 

ADO 

ADD 

ADD 

Aon 
Aon 

CMA 
S2A 
HALT 



K7S 

12'^25 

15?5? 

17777 

11^00 

1 01 00 

12525 

15952 

17777 

111^00 

10100 

12525 
15252 
17777 

11 '^00 
10100 



F502 

/ 

/ 

/Sf QIIENTIAL 

/ 



IS?, NO-SKIP 



r503 



LAC 
DAT 
nAC 
OAC 
DAT 
nAC 
IS? 
IS? 
IS? 
IS? 
IS? 
CLA 
ADD 
ADD 

Aun 
A on 

AUO 
XUR 
S?A 
HAl T 
.tJE 



M4;>i0K 
12525 
15?5? 
17777 
ll'^00 
10100 
12*^25 
t5?5? 
17777 

11!''00 

10100 

12^^25 
15V52 
17777 

11^00 
1 01 00 
K4 'I2K 



CT 



/AC = I'S 

/12525 OP 02525 

/15252 OP 05252 

/17777 OR 07777 

/11000 OR 01000 

/10100 OR 00100 



/ERROR. IS2 DID NOT SKIP 



/ERROR. ALL AORS. NOT 



/AC = 377777 

/OR 02525 

/OR 05252 

/OR 07777 

/OR 01000 

/OR 00100 



/AC = 



^^ao 



/RESULT = 400002 

/ERROR. ALL AODPS, NOT 400000 



-«ASEX^ PAGE 66 







/TFST 
/ 


!S? 


-SKP, SKIP 




^1?^716 


2M7*J73 




I. AT K7S 


/AC = 1 'S 


H :< 7 1 7 


H*>5?5? 






PAC 1^252 




ii:^7?ti 


4'i5?fl>? 






IS? 15952 




^:^7?i 


74li1HPI 






SKP 




H77?2 


741^100 






SKP 




H77P3 


74Hf14(^ 


F'5P'4 

/ 

/TFST 

/ 




HAl T 


/ERROR, IS^-SKIP Din NOT SKIP 






SKP 


-IS?, SKIP 




H3 7?4 


207''7:^ 




I AC K7S 


/AC = 17S 


\dM?5 


H55?5? 






OAT 1525? 




ti:w?6 


74lf'«H 






SKP 




k377?7 


74iai^0Pi 






MOP 




H?<730 


45')?5? 






IS? 1525? 




H77?l 


74H(?i4t^ 


F5H5 
/ 

/TFST 
/ 




HALT 


/ERROR. SKP-ISZ DID NOT SKIP 






SKP 


-IS?, NO-SKIP 




i4:^7?2 


2(^7^31 




LAC KKd 


/AC = (1 


^^7733 


(155P5? 






OAC 1525? 




'/).-^734 


741PMH 






SKP 




'/1.-^7?5 


74«C^00 






MOP 




n:^736 


455?5? 






IS? 1525? 




ki:*737 


741I?H0 






SKP 




t1?'74e) 


74H(^4(1 


F-5f'6 
/ 




HALT 


/ERROR. SKP-ISZ SKIPPFD 


Id ,^741 


447-^34 




IS? W0^K3 


/CHECK DONE LOOPING 


n:^74? 


6PI3444 






JMP IS?AC 


/LOOP 


ii:^743 


l^blVi? 






JMS GE^RAN 


/GET NO. FOR NEXT LOOP 


\dJlA^ 


1^^6126 






JMS CKMO 
.EJECT 





hase:x9 page 


ft7 






t r 1 1 




/TFST JMP 
/ 




0:^745 


207667 


I AC JMPRFT 


n:^746 


740200 




S^A 


^13747 


740040 


F5PI7 


HAl T 


H37S0 


2PI413P' 


1NIT4K 


LAC JMPSEQ 


k1?7«il 


047667 




DAC JMPRET 


fcl.-^7«;2 


2PI375? 




I AC , 


k1.^7S3 


507556 




AND KlPtK 


0,-^7'j4 


740200 




S2A 


v1?755 


603761 




JMP .-••4 


H:x756 


2075«36 




I AC KlC^K 


k)77S7 


047630 




HAC PJCNT 


H.-»760 


603765 




JMP ,+S 


^1:^761 


207541 




LAC K2f^ 


^^1(^2 


04763^ 




OAC PJCNT 


^^•76i 


741000 




SKP 


*)?7ft4 


147667 




DjfM JMPRET 


0^765 


20413"' 




I AC JMPSEQ 


^:^7(S6 


06763PI 




OAC* R.ICNT 


m:^767 


447630 




IS? RJCNT 


0."^770 


207630 




1 AC RJCNT 


K):^771 


546(^61 




SAD K17777 


H:^772 


741000 




SKP 


a.^773 


603764 




JMP .-7 


14:^774 


207667 




LAC JMPRET 


n:»775 


740200 




Sj?A 


0:^776 


740040 


F5f^8 


HALT 


0:^777 


204131 




LAC MOn 


«}40PIP) 


043745 




DAC E5'^7-2 


i^/iHPil 


740^^00 


i^onx 


MOP 


/)40PI2 


207670 


LAC Jill 


k140pi3 


740200 




S2A 


tl'50H4 


740PI40 


F509 


MALT 


((!I40P)5 


204132 




LAC RJ111 


1^4006 


047670 




HAC Jill 


H^007 


051111 




OAC 11111 


040j 


611111 




JMP mil 


141011 


741H00 




SKP 


H^012 


14767PI 


t^JI^Pl 


ni'M Jill 


K11013 


207671 




LAC Jd?2 


i^-iKM 


740P00 




SifA 


^^101 5 


740040 


F510 


MALT 


^14016 


204133 




LAC RJ'^22 


H401 7 


047671 




OAC J2'^2 


Hi0?0 


052222 




DAC 12^22 


AA021 


61222? 




JMP 12^22 


\AAa22 


74i'^00 




SKP 


H4023 


147671 


PJMP9 


Oj!M J2?2 



/ERROR JMP ,-7, .♦4 OR ..fS EAILED 

/LOAD 4K WITH JMP TU 22 

/SEE IE IN UPPER 4K NOW 

/IN UPPER 4K 
/LOWFR 4K 



/CLEAR ERROR TABLE 

/STORE JMP 22 
/INCR, ADDRESS 

/WILL s SAD 07777 WHEN IN 
/ UPPER 4K 



/ERROR, JMPP,*4, .+5 OR ,-7 EAILED 
/PRESS CONTINUE TO DETERMINE 
/JMP FAILURE 



/ERROR. RJMP OR JMP TO Hill 
/OR 01111 EAILED 

/STORE JMP ADDRESS IN TABLE 

/JMP TO 11111 OR 01111 

/CLEAR ERROR WORD TABLE 



/ERROR. RJMP OR JMP TO 12222 
/OR (A2?2? EAILED 



/JMp 1222 OR 02222 
/CLEAR ERROR TABLE 



.EJECT 



MAs^y9 PAGE 


fr8 








t t t t 


2^'7^7? 




I Ar 


J333 


i1i0?5 


74HP0M 




«;i«A 




niet?6 


74fc)i^4(^ 


F511 


HALl 




H4»?7 


2(^4134 




LAC 


RJ333 


ii^n.-^a 


047^7? 




DAC 


J333 


vM H 3 1 


e»^3333 




dac 


13333 


H4H:<;2 


613333 




JMP 


13333 


^^V\7,i 


74100P 




SKP 




v1 1 1^ 3 4 


14767? 


RJMP3 

/ 


n^M 


J3:^3 


114H35 


2(17673 


LAP 


J4 4 4 


ir)i036 


740?0t' 




SHA 




»^4«37 


74UPI4C 


r5i2 


HALl 




\AAiAAti 


2P>413'5 




LAC 


RJ444 


11<1H41 


11147673 




DAC 


J444 


vi4H4? 


k) '54444 




DAC 


14444 


-■1 /I t1 4 3 


614444 




JMP 


14444 


vl /> M 4 4 


741C^0(^ 




SKP 




i^^«45 


147673 


RJMP4 
/ 


n,?M 


J444 


1/14046 


21^7674 


LAP 


JS"^? 


H/H^47 


74021^11 




S2A 




i/lil(1«>« 


740Pi4f1 


F513 


HALl 




»^4H«S1 


20413^ 




LAC 


RJ'^SS 


l/l/l^t^? 


H47674 




OAC 


J5'^5 


V-) ^ H "s 3 


V5'5«j«=i'>^ 




OAC 


15S55 


1/1/11^^4 


615'S5«^ 




JMP 


15^^55 


vi/iim5 


74l^10Pl 




SKP 




k1^0'S6 


147674 


fvJI^P5 

/ 


n£M 


J5S5 


tM»S7 


2n767'5 


LAT 


J666 


t^ /. t^ 6 (1 


740?0(^ 




S2A 




'^ /I H 6 1 


740^^4^ 


F514 


HALl 




vl /) f^ 6 2 


2(^4137 




LAC 


RJ666 


H <3 fcl f 3 


4 7 (^ 7 S 




OAT 


J666 


v1^(l64 


0^^6666 




RAC 


16666 


i/i^;^^ 5 


616666 




JMP 


16666 


v) '^ t^ 6 6 


741001'^ 




SKP 




v1 iJ va f. 7 


14767*=; 


PJ'-IP(«, 
/ 


ni?M 


J666 



/ERROR, RJMP OR JMP TO 13333 
/OR 03333 FAILED 



/JMP TO 13333 OR 03333 
/CLEAR ERROR TAbLE 



/ERROR. RJMP OR JMP TO 14444 
/OR 04444 FAILED 



/JMp TO 14444 OR 04444 
/CLEAR ERROR TABLE 



/ERROR. RJMP OR JMP TO 15555 
/OR 05555 FAILED 



/JMP TO 15555 OR 05555 
/CLEAR ERROR TABLE 



/ERROR. RJMP OR JMP TO 16666 
/OR 06666 FAILED 



/JMP TO 16666 OR 06666 
/CLEAR ERROR TABLE 



.EJECT 



HASpyy 



1 1 1 1 



<^ PAGE 


A9 


tM(^70 


2M7ft76 


H4H71 


740?0P( 


H^i472 


740Pi4Pt 


04073 


2(^414(^ 


M4M74 


047^76 


H/1075 


0'>7777 


\iU\d76 


617777 


H4fi77 


741PI0P) 


I(141PI0 


147^76 


H 4 1 P! 1 


P0770PI 


^14102 


740?00 


H41PI3 


74004M 


i^4lPI4 


2^14141 


ll4105 


i^4770(?i 


ld4iPI6 


145?'>2^ 


vl4lPI7 


612^2'5 


^1/1110 


741PI00 


H/1111 


147701^ 


a/1112 


2(^7677 


M4113 


740P00 


04114 


740!'!4P' 


04115 


20414? 


H4116 


047677 


1^4117 


055?5? 


i/i^lPIA 


615?'5? 


n^l?l 


74lPt00 


H/ilpp 


147677 


i^41?3 


447^34 


041J>4 


604^0? 


H^IPS 


10610? 


^4i?6 


106126 


i441?7 


604143 



0^130 
H4 131 

H4132 
4^^133 
M^134 
^4135 

041,76 

04i:s7 

04140 

0/1141 
04142 



600'^7Pi 
60400? 
60401? 
604023 
604034 
60 4 45 
604(^5"^ 
6^4067 
6041 Mfi 
6041 11 
6041 2? 





LAC J777 




S^A 


K515 


HALT 




LAC RJ777 




nAC J777 




OAC 17777 




JMP 17777 




SKP 


RJMP7 

/ 


n^M J777 


LAC J252 




S2A 


F516 


HALT 




LAC RJ?52 




RAC J2'^2 




OAC 1 2^2*5 




JMP 12^525 




SKP 


PJMPh 

/ 


n^M J2'S2 


LAC J5?5 




5ZA 


F.'i)j7 


HALT 




LAC RJS25 




OAC J5?5 




OAC 15?5? 




vJMP 15?5? 




RKP 


RJMPQ 

/ 


HitM J^jOS 


IS? W0RK3 




JMP Monx*i 




JM?^ CENRAN 




JMS CKNO 


/ 

/Jf^P CON 

/ 


JMP TSCAL 


iSTAiMTS. THFS 


JMPSFQ 


JMP SEOUFN 


Mon 


JMP Monx*i 


RJiii 


JMP RJMPl 


RJ?2? 


JMP WJMP? 


RJ333 


JMP RJMP3 


PJ444 


JMP RJMP4 


PJ'-5'S 


JMP RJMPS 


PJ66^ 


JMP PJVPA 


RJ777 


JMP RJHP7 


PJ?5? 


JMP RJMPB 


RJS2^ 


JMP RJMP9 




•EJECT 



/ERROR. RJMP OR JMP TO 17777 
/OR 07777 FAILED 



/JMP TO 17777 OR i)7777 
/CLEAR ERROR TABLE 



/ERROR. RJMP OR MP TO 12525 
/OR 02625 FAILED 



/JMP TO 12525 OR fl25?5 
/CLEAR ERROR TABLE 



/ERROR. RJMP OR JMP TO 15252 
/OR 05252 FAILED 



/JMP TO 1525? OR 05252 

/CLEAR ERROR TABLE 

/CHECK DONE LOOPINC, 
/LOOP 
/GET NO. FOR NEXT LOOP 

/TEST CAL 

ARE MOniFIFD WHEN IN HI 4K 



'<ASEy9 PAGE 7« 







/TFST CAt 

/ 

TSrAL 








I'l 4 1 4 3 


2077(^VO 


1 AC rAL0 






^^144 


74M?00 




S<!A 






^1^145 


7 4 CM f" 


l-'5l8 


MAI T 


/ERROR. CAL FROM i77S7 


OR 07757 


H^146 


7077H4 




LEM 


/CLEAR EXTEND MOPE 




/I ^ 1 4 7 


7«54til^d 




CLA!CLL 


/AC = 0, LINK s 




ii^isa 


770C120 




LAW 10020 


/AC = 770020 




vl 4 1 «S 1 


150704 




n?M 10704 


/CAL AT 10704 OR 00704 




<,U]t=>2 


207^6-^ 




I AH K2M21 






\Ul'=,i 


047701 




OAf CAL0 


/STORE ERROR CODE 20?1 




i^^HS4 


?IM?15 




LAC PCAL0 






W41S5 


0401^21 




OAC ?i 


/RJMP FROM CAL 




i/i4i«=;6 


610704 




JMP 10704 


/JMP TO 10704 OR 00704 




041^7 


147701 


RCALS0 


ni!M HALa 


/CLEAR ERROR TABLE 




0^1fr0 


200^2'^ 




LAC ?0 






H/H61 


b442l'^ 




SAH KCAL0 


/10705 OR 00705 




v)il62 


741P10M 




SKP 






i^4i(S3 


740040 


F519 


HALT 


/ERROR. (20) NOT 10705 


OR 00705 


H4ift4 


210704 




LAC 10704 






1/1^165 


740200 




SZA 






t1 4 1 ft 6 


740040 


F519A 

/ 

/TFST CAL 

/ 


HALT 


/ERROR (10704 OR 00704) 


NOT 






LINK = 1 






H41ft7 


20770it| 


LAH CALl 






i/11170 


740200 




Si?A 






^"171 


740040 


F5?0 


HALT 


/ERROR. CAL FROM 10704 


OR 00704 


vi<rtl72 


74400? 




CLL!CML 


/LINK s 1 




k1''l73 


?.ffl7b6A'7 




LAC K2120 






M'1174 


04770$ij 




HAC CALl 


/STORE ERROR CODE 2120 




^1^175 


204217 




I.AC WCAL1 






1^4176 


040021 




HAC ?l 


/RJMP FROM CAL 




kl4l77 


610704 




JMP 10704 


/JMP TO 10704 OR 00704 




i/1/1200 


14770^ ) 


f^CALSi 


n2M CALl 


/CLEAR ERROR TABLE 




i^^2P(l 


200020 




LAC ?0 






i')4 2C'2 


54422P' 




SAO KC4LF 


/410705 OR 400705 




H42PI3 


7 4 10 




SKP 






e14?M4 


740(-'-40 


F5?l 


HAl T 


/ERROR. (20) NOT 410705 OR 4007 


1^4205 


210704 




LAC 10704 






/)42Pi6 


740200 




S<<A 






i^/i2C^7 


740040 


F5?1A 
/ 


HALT 


/ERROR (10704 OR 00704) 


NOT 


v^ 4 2 1 


447634 


IS? W0PK3 


/CHECK DONE LOOPING 




^"211 


604143 




JMP TSCAL 


/LOOP 




'.^^212 


10610? 




JM? CENRAN 


/GET NO. FOR 


NEXT LOOP 


/^213 


106126 




JMS rKMO 






1,^^214 


604221 




JMP TSJMS 


/TFST JMS 





.EJECT 



HASty9 PAGE 71 

T t ♦ t 







/CAL CON' 
/ 

MCAL^^ 


UANTS. THE 


k)4215 


6(14157 


JMP RCALS0 


04216 


M1070*5 


KCAL'TI 


10705 


H^217 


6P)4?{10 


PCAL1 


JMP RCALSl 


t4^2?0 


41M7KS 


KCALT 


410705 
.EJECT 



THESE ARE MOniFien WHEN IN HI 4K 



'U^FVV PAGE 72 



kl'>232 

i^i2vl5 
^^2:^6 

vi^2:^7 

5-1^240 

^^"241 
H'1242 
tl4243 

.-1 ^244 

1/1^246 
fM 2 4 7 
'4'12'50 
k^42^1 
Hd252 
ti'J2*>3 
/)^254 
i^'»2^5 
i^^2*^6 
i'M?«5 7 
1^4260 
'/I ^ 2 6 1 

i,i/i262 

i^42**'3 
i^4?(S4 

H42(S5 
M4266 
v1 1 2 <S 7 
i^4270 
1^^271 
H/1272 
1/11273 
^^"274 
v)/)275 



207703 
740200 
740('40 

744000 
204537 
0^111? 
204*)40 
047777 
047703 
77111? 
607777 
147703 
211J11 
544*541 
74li;i00 
740H40 

207704 
740200 
740(^40 

707704 
744000 
20454? 
052223 
204543 
047776 
047704 
772223 
607776 
147704 
?1??2? 
544544 
741M0P' 
74 00 41^ 

?0770(i 
740P0M 
740P140 

707704 
744^^001 
20454"^ 
M53^34 
204*^46 
04777"^ 
04770R 
773334 
60777«S 



/TFST JMS 






/ 






TSJMS 


L AT 
Si?A 


JSM71 


F5?2 


MAIT 




TLL 






LAH 


RJSM71 




DAC 


1111? 




LAC 


RSM71 




HAC 


07777 




HAC 


JSH71 




L AW 


1111? 




J MP 


07777 


PJMS71 


nj?M 


JSM71 




LAC 


11111 




SAP 


Ki(^000 




SKP 




t5?3 


HALT 




LAC 


JSM72 




S2A 




F5?4 


HAIT 




LEM 






CLL 






LAC 


RJqM72 




OAC 


12223 




LAC 


RSM7? 




OAC 


M7776 




OAC 


JSM72 




LAW 


12?23 




JMP 


07776 


WJMS72 


n£M 


JSM72 




1 AC 


12?2? 




SAP 


K77 




SKP 




F5?5 


HAL T 




LAC 


JSM73 




sz* 




F5?6 


HAI T 




1 EM 






CLL 






LAC 


RJSM73 




PAC 


13334 




LAC 


RSM73 




PAC 


07775 




PAC 


JSM73 




LAW 


13^34 




JMP 


T^nih 




.EJECT 



/ERROR. JMS FROM 07777 TO 11111 
/OR FROM 17777 TO 01111 
/LINK r 

/JMP TO RJMS71 
/RJMP FROM JMS DEST'N 
/JMS mil 



/AC s 771112 
/CLEAR ERROR TABLE 



/ERROR. (11111 OR 01111) NOT 
/10000 OR 00000 



/ERROR. JMS FROM 07776 TO 12222 
/OR FROM 17776 TO 02222 



/JMP TO RJMS72 



/JMS 12222 

/AC s 772223 
/CLEAR ERROR TABLE 



/ERROR. (12222 OR 0222?) NOT 
/07777 OP 17777 



/FRRPH. JMS FROM 07775 TO 13333 
/OR FROM 17775 TO 03333 



/JMP TO RJMS73 



/JMS 13333 



/AC = 773334 



-^ASEV^ 



PACE 73 



1 1 1 1 



1^4276 


147705 


k)'<277 


21333:^ 


H<13HH 


544547 


tl43Pil 


7410RI0 


H43PI2 


740(44PI 


k143Pl3 


20770ft 


I^43PI4 


740200 


^43PI5 


740040 


i()43(i6 


707704 


v1i3(^7 


744000 


H431H 


204550 


^14311 


054445 


ki4 312 


204551 


H4313 


047774 


M4314 


047706 


1^4315 


774445 


114316 


607774 


04317 


147706 


'/)4 3?0 


214444 


fel43?i 


54455? 


i^43?2 


741000 


M4323 


740040 


v543?4 


207707 


144325 


740200 


i44326 


740040 


114327 


707704 


1^4330 


744000 


M4331 


204553 


^4332 


055^^56 


144333 


204554 


e)4334 


04777"^ 


544335 


047707 


04336 


775556 


^4337 


60777:^ 


V44340 


147707 


H4341 


215555 


04342 


544555 


04343 


741000 


04344 


740040 


4 345 


207710 


4 34 6 


740P00 


04347 


740040 



RJMS73 



F5?7 



F528 



RJMS74 



F529 



F5.-^0 



RJMS75 



F531 



F53 2 



nHM JSM73 
LAC 13333 
SAD K76 
SKP 
HAIT 

LAC JSM74 

S£A 

HALT 

LEM 

CLL 

LAC PJSM74 

OAC 14445 

LAC RSM74 

DAC 07774 

DAC JSM74 

LAW 1444'=; 

JMP 07774 

n£M JSM74 

LAC 14444 

SAD K7S 

SKP 

HALT 

LAC JSM75 

S2A 

HALT 



LEM 
CLL 
LAC R 
DAC 1 
LAC R 
OAC 
HAC J 
LAW 1 
JMP 
n2M J 
LAC 1 
SAO K 
SKP 
HALT 



JSM75 

5*^56 

SM75 

7773 

S'^75 

5S56 

Ills 

SH75 

5<S55 

7^ 



LAC JSM76 

S?A 

HALT 

.EJECT 



/CLEAR ERROR TABLE 



/ERROR. (13333 OR 03333) NOT 
/07776 OR 17776 



/ERROR, JMS FROM 07774 TO 14444 
/OR FROM 17774 TO 04444 



/JMP RJMS74 
/JMS 14444 

/AC = 774445 
/CLEAR ERROR TABLE 



/ERROR. (14444 OR 04444) MOT 
/07775 OR 17775 



/ERROR. JMS FROM 07773 TO 15555 
/OR FROM 17773 TO 05555 



/JMP TO RJMS75 
/JMS 15555 

/AC = 775556 
/CLEAR ERROR TABLE 



/ERROR. (15555 OR 05555) NOT 
/07774 OR 17774 



/ERROR. JMS FROM 07772 TO 16666 
/OR 1777? TO 06666 



U'^EVV 



V PAGE 


74 








\AAimfl 


7(^7704 




lEM 




H^i'il 


744fiH(' 




HLL 




i')d3S2 


2^^4'=>5*S 




I. AT 


PJSM76 


"l^jsi 


i^R6^67 




OAT 


16667 


1143S4 


2^4-^57 




I AT 


RSM7ft 


.^/i3S5 


04777? 




OAH 


0777? 


H4JS6 


H477tC1 




OAT 


JSM76 


^Ai'=,7 


77A/>67 




LAW 


16667 


vl436l^ 


6H777? 




JMP 


(^777? 


H43M 


1477lP< 


PJMS76 


ni?M 


JSM76 


^^''Sft? 


21666^ 




LAH 


16666 


H436J 


'544'56P' 




SAO 


K7^ 


H4364 


741t'H0 




SKP 




/4365 


740^^4P( 


F533 


HALl 


r 


0^3^,6 


2^17711 




LAC 


JSM77 


.■1'3 3^7 


74fe1?PlPi 




S2A 




.>I4370 


74fe)f/l4P' 


r534 


MALT 


1^1371 


71^7704 




1 EH 




H1372 


7441^01?' 




riL 




M 1 3 7 3 


7 PI M 4 




CLOF 




1-1^374 


70Ht^H? 




I OF 




i'J4375 


2PI4561 




LAC 


RJSM77 


^')4376 


040M0PI 




HAT 


00r/0 


1^4377 


204^6? 




LAC 


RSM77 


i^/'4P'0 


H47771 




OAT 


V<111\ 


1 1 /< 4 fi 1 


H4 7 711 




OAT 


^%^11 


/)^4(*2 


7fti4i^a(^ 




I A I"' 


(^ 


H<i4H3 


A07771 




JMP 


07771 


kU4P»4 


147711 


PJMS77 


n^M 


JSM77 


t')<:4«5 


21777 7 




LAC 


17777 


i^'^4(^6 


344^6^ 




SAO 


K7? 


^1/14(^7 


741l''PI<'1 




SKP 


- 


i/i44 j 


74004^^ 


F535 


HALT 


^1^41 1 


750(^04 




LAS 




►1^412 


7 4 0t''l(^ 




RAL 




H441 3 


740100 




SMA 




1/1/1414 


7M0l^42 




I0^' 




|^''415 


5fl7^'57 




ANO 


K2^^K 


i^^i41 6 


74l20f 




SNA 




^1'»41 7 


106<^v14 




JHS 


SFTCLK 


v^4420 


207712 




LAC 


JS252 


i^'^421 


74020P^ 




SrfA 




'^^422 


74 4 


i-^.-^a 


MAI 1 


r 



/JMP TO RJMS76 



/JMS 16666 

/AC = 776667 
/CLEAR ERROR TABLE 



/ERROR. (16666 OR 06666) NOT 
/07773 OR 17773 



/ERROR. JMS FROM 07771 TO 17777 
/OR 17771 TO 07777 



/PI OFF FOR THIS TEST 

/JMP TO RJMS77 

/JMS 17777 



/AC = 760000 
/CLEAR ERROR TABLE 



/ERROR (17777 OH 07777) NOT 
/07772 OP 17772 



/PI RACK ON 

/CHECK ACS 5 

/CLOCK BACK ON 



/ERROR. JMS FROM 12525 TO 15252 
/OR FROM 02525 TO 0525? 



.FJECT 



MSC)f9 



1 1 1 



9 PACC 


75 


044?3 


74400? 


044P4 


204564 


i(J44?5 


055253 


ia44?6 


204565 


044?7 


052525 


04430 


04771? 


a443i 


775253 


04432 


612525 


04433 


14771? 


04434 


21525? 


04435 


54456ft 


04436 


74100PI 


04437 


740040 


04440 


207713 


04441 


740200 


04442 


740040 


04443 


74400? 


0^444 


204567 


04445 


052S26 


0i«446 


204570 


04447 


055?5? 


04450 


047713 


04451 


772526 


04452 


615?5? 


04453 


147713 


04454 


212525 


04455 


54457? 


0^456 


741000 


04457 


740040 



PJMS14 



F537 



F538 



RJMS15 



F539 



CLLinMl. 
LAC RJSM25 
HAC 15?53 
LAH RSM25 
nAC 12*)25 
HAC JS?5? 
LAW 15253 
JMP 12525 
OHM JS?5? 
I AC 15?52 
SAD K4?6 
SKP 
HALT 

LAC JS525 

S2A 

HALT 

CLL!CML 
LAC RJSM52 
nAC 12S26 
LAC RSi^52 
DAC 15?52 
nAC JS525 
LAW 12526 
JMP 15?52 
n2M JS'525 
LAC 12*525 
SAn K4'15 
SKP 
HALT 

.EOT 



/LINK » 1 



/JMP TO RJMS14 



/JMS 15252 

/AC = 775253 

/CLFAR ERROR TABLE 

/412526 OR 402526 

/ERROR. (15252 OR 0525?) NOT 
/412526 OR 402526 



/ERROR. JMS FROM 15252 TO 12525 
/OR 05252 TO 02525 
/LINK s 1 

/RJMP TO RJMS15 

/JMS 12525 



/AC = 772526 

/CLEAR ERROR TABLE 

/415253 OR 405?53 

/ERROR, (12525 OR 02525) NOT 
/415?53 OR 405253 



lA'^^EXV 



PAGE 76 



/PnP-9 HASIC EXERCISER " TAPF 9 







/TFST 

/ 


JMS SEPIFS 






V14460 


207714 


LAC JSSS 






.-I /I 4 («> 1 


74020PI 




5; I? A 






1^) 4 4 6 ? 


740040 


F540 
/ 


MALT 


/ERROR 


. JMS SERIES FAILED 


^1463 


744002 


HLLtHML 


/LINK 


» 1 


tl'^464 


104465 


JS1 


JMS .+1 






H/1465 


740040 


F.541 


HALT 


/ERROR 


. JMS SERIES 


^^466 


104467 


JS2 


JMS .♦I 






1/14467 


740040 


F54 2 


HALT 


/ERROR 


. JMS SERIES 


V44470 


104471 


js-^ 


JMS ,♦! 






144471 


740040 


F543 


HALT 


/ERROR 


. JMS SERIES 


.14472 


707704 




I EM 






tl4473 


744000 




CLL 






/4474 


104475 


JS4 


JMS .+1 






^4475 


740040 


F544 


HALT 


/ERROR 


. JMS SERIES 


H4476 


147714 


RJMSS 


n^H JSSS 


/CLEAR 


ERROR TABLE 


/'•.477 


2045 73 




LAC KjSi 


/TFST , 


JSl, LINK s 1 


i445P'0 


347554 




TAP K400K 






H45PI1 


7401^01 




CMA 






l^45Pi2 


34446*^ 




TAP JSl+1 






i145(^3 


740001 




CMA 






I')'! 504 


740200 




S£A 






(/)'i505 


740040 


F545 


HALT 


/ERROR 


. JSl+1 


v145fi6' 


204*^74 




I AC KJS2 


/TFST , 


JS2, LINN s 1 


v1 4 5 7 


347554 




TAD K400K 






■/5 ^ 5 1 


740001 




CMA 






VJ4511 


344467 




TAP JS2+1 






1^4512 


740001 




CMA 






04513 


74020PI 




S^A 






04514 


740040 


F54 6 


MALT 


/ERROR 


. JS2+1 


114515 


204575 




LAC KJS3 


/TEST , 


JS3, LINK = 1 


0^516 


347554 




TAP K4I7I0K 






04517 


740001 




CMA 






i145?0 


344471 




TAP JS3*1 






04521 


740001 




CMA 






04522 


740200 




S^A 






04 523 


7 4 0M4l^ 


t547 


MAI T 


/ERROR 


. JS3+1 


045?4 


204576 




LAC KJS4 


/TEST , 


JS4, EXT s 0, LINK s 


04525 


740001 




CMA 






04526 


34447'S 




TAP JS4+1 






04527 


740001 




CMA 






04530 


740200 




SiA 






4 531 


7 4 0040 


F548 
/ 


HALT 


/ERROR 


. JS4+1 


04532 


4471^34 


IS7 W0PK3 


/CHECK 


DONE LOOPING 


04533 


604221 




JMP TSJMS 


/LOOP 




04534 


106102 




JMS CENRAN 




/GET NO. FOR NEXT LOOP 


04535 


1061 26 




JMS CKMO 






04536 


604'='77 




JMP TSXCT 


/TFST : 


XCT 



.EJECT 



Aspy*^ 



PAHt 77 



v1^537 
v^ '1 S 4 H 
/) /I b 4 1 
I'l -1 5 4 ? 

vi 4 1? 4 :5 

i/1 /•. 5 ij 4 
V^ ^! S 4 5 
t1 -1 "J 4 6 

/i/"547 
*1 /I *> "^ 1 

1/) /I t> t; i^ 

ki /I 5 "^ 4 
i-l 1 ^ "=5 5 

/I --I ^ i<> 

H 'I 5 ^ 2 
fM ^ f 3 
.1 /' t> 1^ 4 
H '1 1? 6 5 

t1 'I 5 6 7 

•/I z"- 5 7 
t') '■- ^ 7 1 
I'l ^ 4 7 ie 

i4 '1 'j 7 3 
-0 ^b 7 4 
>A /. 4 7 5 
•l'i^76 



6H4P34 
111111 

604^5'^ 
ll^?^''^ 

1/107777 
6 IM ? 7 /'^ 

li3.<:v^ 

1^07776 
6 4 ."n 7 
11 4144 
00777S 
6 H 4 ."^ 4 
llb^^^iS 
^107774 
604361 
116<S6^ 
t^ 7 7 7 ^ 
604-104 
117777 
00777? 
604433 
11 "^^^P 
41 J^^26 
60441,3 
II^T^'^ 
007771 
4l5?b3 
00446^ 
004467 
004471 
00447^^ 



/constani 
/ 

KJSM71 


rs FOR jMS. 


JMP PJMS71 


(^ S M 7 1 


JMS 11111 


K 1 (1 f! Id 


1 0000 


I'JSM72 


JMP PJMS72 


WSm7'J 


JMS 1??2? 


K77 


07777 


w J S M 7 3 


JMP RJMS73 


W S '^ 7 3 


JMS 13^33 


K 7^ 


M7776 


f^JSM74 


JMP RJMS74 


f-S'^74 


JMS 14444 


K7^. 


0777s 


^^JSM7!3 


JMP RJMS75 


P S M 7 '^ 


JMS 1bS5S 


K 74 


07774 


PJSM76 


JMP RJMS76 


HSf"76 


JMS 16^6^ 


K73 


07773 


pj<:;m77 


JMP RJMS77 


WSM7 / 


JMS 17777 


K7? 


07772 


f'JSM''5 


JMP RJMS14 


KSM?*"^ 


JMS 1'5P5? 


K4?6 


412526 


f-'jSM'^^2 


JMP RJMSl'? 


I'SM^'-' 


JMS 12^25 


K 7 1 


07771 


K 41 b 


41S2'=>3 


KJ'^l 


JS1*1 


K JS2 


JS2 + 1 


K JS3 


JS3 + 1 


KJS4 


JS4 + 1 


/ 





.EJECT 
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H4577 
|/I'16I?I5 



\AAbV*7 
1^4610 

H4613 
tl46l5 



K11616 
kl46l7 
i^<56?0 
M46?l 
H^6?2 
kl46?3 



H46?4 
\flAb?'? 
H/16?6 
^146?7 

04630 

W4631 

1,14632 
V14633 
1,1 4 6 3 4 



V14635 
'.'.1463ft 
^^4637 
'/1 4 6 4 
04641 
1/14 6 4 2 
H4643 
04644 



754^103 
41^4601 
740(100 
74H40M 
740f^40 
740001 
740?00 
740040 



754000 
404ftl1 
740000 
741400 
740040 
740200 
740040 



407ftl7 
740040 
750001 
407620 
740200 
740040 



750000 
407573 
740001 
740200 
740040 

750l'"!01 
057777 
405052 
740040 



744002 
777777 
057777 

405054 
740200 
740040 
741400 
740040 



/TFST ycT 

/ 

TSXCT 



F549 



CLA!CMA!CLl,!CML 

XCT .♦I 

NOP 

SNL 

HALT 

HMA 

S2A 

HALT 



F550 

/ 

/TFST FXFCDTF NOP, AC r e\ , LINK t p) 



/AC s ONES, LINK ■ 
/NOP 



/ERROR? XCT NOPI LINK WAS RESET 
/ERRORJ XCT NOP; AC NOT ONFS 



F551 



CLASCLL 

XCT .♦! 

NOP 

S£L 

HALT 

Si?A 

HAl T 



/AC 



0, LINK s 



F552 

/ 

/TFST XCT SKP 

XCT KSKP 

F553 HALT 

CLA'CMA 
XCT KCLA 
S2A 

F554 HALT 

/ 

/TFST XCT LAW 
CLA 

XCT K7S 
CMA 
S2A 

F555 HALT 

/TFST XCT IS? 

CLAtCMA 
nAC 17777 
XCT XCTIS2 

F556 HALT 

/ 

/TFST XCT TAO 

CLL.TML 
LAW 17777 
nAC 17777 
XCT XCTTAD 
S£A 

F5'='7 HALT 
Si»l 

F558 HALT 

.EJECT 



/ERROR; XCT NOP; LINK WAS SET 
/ERRORI XCT NOP; AC NOT 



/SKIP 

/ERROR) XCT SKP FAILED 

/AC s ONES 

/CLA 

/ERROR; XCT CLA FAILED 



/AC = 
/LAW = 17777 
/AC = 

/error; XCT LAW FAILED 

/AC s ONES 

/IS2 17777 
/error; XCT ISi? FAILED TO SKP 

/LINK s 1 
/AC = ONES 
/17777S777777 

/TAD Kl 

/ERROR; XCT TAD FAILED, AC NOT 

/error; XCT TAD FAILED LINK 
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/TrST XCT RAl , AC s ONFS, LINK r 1 



^116415 


7S4(^;,:? 




CLAJCMA! 


:CLL!CML 


/AC = ONFS, LINK z 1 


k14646 


41^7641 




XCT XCTRAL 


/RAL 


^4647 


740HP)1 




Hi A 




/AC = 


vi46*='ia 


74H?(fl(^ 




S^A 






H/t6«^l 


74MP4P' 


F5'i9 


HALT 




/FRROHJ XCT RAL FAIL 


iia6«S? 


7444P»(^ 




SNLJCLL 






l^'«6'^i 


740ti4C 


/ 
/TFST 


MALT 




/FRRORJ XCTRaL FAILE 






XCT nAC 






tM6«^4 


2«7';67 




LAC K3S 




/AC = 333333 


^A6'=>B 


405^153 




XCT XCTOAC 


/DAC 17777 


M/16^6 


347«>7(^ 




TAD K4S 




/AC = 777777 


H4657 


741^001 




CMA 




/AC = 


v11660 


740?0(^ 




S2A 






v^4661 


74004(' 


F561 


HALT 




/ERRORJ XCT DAC FAIL 



/NOT STORED AT 17777 



.EJECT 
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/TFST 
/ 


XCT JMS 


il<16f 2 


2P'77i«5 


LAC XCTll 


4 6 (^ 3 


74H?0(' 




S?A 


|^46<S4 


7ai^V^A<^ 


f-562 


HALT 


^1-1665 


2(15(^3^ 




LAC XT11S 


•Idbfta 


0477iS 




nAC XCTll 


1^4667 


0'5iiil 




HAC mil 


V14670 


2(^5031 




LAC XTPii 


H4671 


05666<S 




DAC 16666 


H4672 


20503? 




lAC XTiR 


^-1673 


351112 




OAC 1111? 


H4674 


611111 




JMP mil 


M4675 


1477l'5 


RXCTi 


n2M XCTll 


154676 


211111 




LAC mil 


W4677 


545033 




SAD Kl? 


H^700 


741000 




SKP 


Vi'l7Pil 


740040 


F563 


HALT 


H4702 


207716 




LAC XCTl? 


i'»47Pl3 


740200 




S£A 


n 4 7 PI 4 


74004P' 


F564 


HALT 


tM7pi5 


205034 




LAC XT12S 


k1'i7pi6 


047716 




DAC VCTl? 


1447(^7 


05222? 




HAC 12?2? 


047i« 


20503*=^ 




LAC XTRl? 


I'l 4 7 1 1 


0«555«55 




HAC 15555 


k547l2 


205036 




LAC XT?R 


W4 713 


05222^ 




DAC 12223 


H4714 


61222? 




JMP 12222 


1^4715 


147716 


RXHT? 


n^M XCTl? 


M4756 


21222? 




1 AC 12?22 


H4 717 


545037 




SAO K21 


047P0 


741000 




SKP 


M47?l 


740040 


F565 


HALT 


H47?2 


207717 




LAC VCT13 


^)47?3 


740200 




S^A 


H 4 7 ? 4 


740040 


F566 


HAl T 



/ERROR. XCT (16666 R 06666) 
/FROM 11111 OR 01111 
/XCT (16666 OR 06666) 

/OR 01111 

/JMS 11111 OR 01111 

/OR 06666 

/RJMP TO RXCTl 

/OR 01112 

/OR 01111 AND XCT (16666 OR 06666) 

/CLEAR ERROR TABLE 

/OR 01111 



/ERROR, RJMP ADR, NOT 1112 
/OR 01112 



/ERROR. XCT (15555 OR 05555) 
/FROM 12222 OR 02222 
/XCT (15555 OR 05555) 



/JMS 12222 OR 02222 
/RJMP TO RXCT2 

/CLEAR ERROR TABLE 



/ERROR, RJMP NOT 12223 
/OR 02223 



/ERROR. XCT (14444 OR 04444) 
/FROM 13333 OR 03333 
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H47?5 


20504<'i 


H47?6 


047717 


M47?7 


053133 


H4730 


205041 


IM7:^1 


054444 


H47:^2 


20504? 


H'ii7?<3 


053334 


1^47:^4 


613333 


^14735 


147717 


H4736 


213333 


^54737 


545043 


H4740 


741000 


H4741 


740040 


«4742 


207720 


H4743 


740200 


»14744 


740040 


H4745 


205044 


\dA7A6 


047720 


1(14747 


047776 


H47S0 


205045 


I447«51 


057776 


H4752 


205046 


l^47«53 


047777 


kJ47«54 


607776 


H47'55 


147720 


H4756 


207776 


k147S7 


544'=?44 


k44760 


741000 


^44761 


740040 


H4762 


207721 


047<S3 


740?00 


(44764 


740040 


047^5 


205047 


H4766 


047721 


^^>7f>7 


055?5? 


H^770 


205050 


^14771 


052*^25 


04772 


205051 


04773 


055P53 


04774 


61525? 


04775 


147721 


04776 


21525? 


04777 


545435 


0f 0P)0 


741000 


0^:0(^1 


740040 



f^xrT3 



F567 



r56e 



PXrT4 



t569 



F570 



Rxf^TS 



F571 



LAC XT13S 
nAC XCT13 
DAT 13333 
LAC XTR13 
nAC 14444 
LAC XT3R 
nAC 13334 
JMP 13333 
n^M XCT13 
LAC 13333 
SAD K34 
SKP 
HALT 

LAC XCT17 
S2A 
HALT 

LAC XT17S 
DAC XCT17 
DAC 07776 
LAC XTP17 
DAC 17776 
LAC XT4R 

nAC 07777 

JMP 07776 

n?M XCT17 

LAC 07776 

SAD K77 

SKP 

HALT 

LAC XCT125 

SZA 

HALT 

LAC XCTl?S 
HAC XCT125 
nAC 15?52 
LAC XCTR12 
nAC 12*^25 
LAC XTSR 
HAC 15?53 
JMP 15?52 
n^M XCT125 
LAC 1t3?5? 
SAO K1S253 
SKP 
HALT 
.tJECT 



/XCT (14444 OR 04444) 

/JMS 13333 OR 03333 
/RJMP TO RXCT3 

/CLEAR ERROR TABLE 

/ERROR, RJMP NOT 13334 OH 03334 



/ERROR. XCT (17776 OR 07776) 
/FROM 07776 OR 17776 
/XCT (17776 OR 07776) 

/OR 17776 

/JMS 07776 OR 17776 

/OR 07776 

/RJMP TO RXCT4 

/OR 17777 

/OR 17776 

/CLEAR ERROR TABLE 

/FOR 17776 



/ERROR, RJMP NOT 07777 OR 17777 



/ERROR. XCT (12525 OR 02525) 
/FROM 1525? OR 05252 



/XCT (12525 OR 0?5?5) 



/OR 05?5? 



/JMS 15252' OP 05252 
/RJMP TO RXCT5 



/CLEAR ERROR TABLE 



/ERROR. RJMP NOT 15253 OR 05253 
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i^*- MP!7 
t) '■■'010 

n^-'m 1 

irl'-MI 2 
^^m 3 
14 «^ 014 

t^'H16 
0'-H1 7 

^11 M?4 

i'1«-0P7 



i-i'-030 
.■1'^-031 
i^'-032 
v)' 033 
k^'~034 
/ «" 3 5 
el "^036 
^^■-037 
*"• 4 
0^041 
H «- 4 ? 
*- 4 3 

0^^044 
0t.p)45 

0'-046 
0'-047 
i/5'' 0^0 
0'=^0S1 
0'-052 
n'-0S3 
0'- 0'S4 



7*^4003 
405004 
40500*^ 
40'5006 
40*3007 
405010 
405011 
40501? 
40501 ^ 
405014 
405015 
7401^00 
740001 
740?00 
740040 
740400 
740040 
447*^34 
604577 
10610? 
106126 
6M5055 



416666 
111111 
60467*^ 
01111? 
415555 
112?2? 
604715 

01222:^ 
41 4444 
113333 
604735 
013'^34 
417776 
107776 
604755 
412525 
115?5? 
604775 
457777 
057777 
34753? 



/TFST XCT SFPIFS 
/ 

rLA!nMA!CLL!CML 

xcT .+1; xcT .+1; 



/AC = ONFS, LINK 
XCT .♦I 



r572 
F573 



VCT .♦!; XCT .♦!; XCT +1 



XCT .♦!; XCT .♦!; XCT .♦! 



XCT .♦I 

NOP 

CM A 

S£A 

HAl. T 

SNL 

HALT 

IS? W0PK3 

JHP TSXCT 

JMS RENRAN 

JMS CKNO 

JMP tsauto 



/ERROR, XcT SERIES FAILED AC NOT ONES 

/ERROR, LINK CHANGED 
/CHECK DONE LOOPING 
/LOOP 

/GFT NO FOR NEXT LOOP 



/TEST AUTO-INDFXING 



/ 

/XCT CONSTANTS, MODIFIED WHEN IN UPPER 4K 
/ 

XTUS XCT 16666 

XTR11 JMS mil 

XTIR JMP RXCTl 

Kl? 11112 

XT12S XCT 15555 

XTPl? JMS 12?2? 

XT2R JMP RXrT? 

K23 12223 

XT13S XCT 14444 

XTP13 JMS 13333 

XT3R JMP RXrT3 

K34 13334 

yT17S XCT 17776 

XTR17 JMS M7776 

XT4R JMP RXrT4 

XCT1?S XCT 12525 

XCTR12 JMS 15?52 

XT'iR JMP RXrT'^ 

XCTIS2 rS? 17777 

XCTOAC OAC 17777 

XCTTAD TAD Kl 
.EJECT 



ASEXQ PAGE 


83 


1 1 1 








^^9*i5 


20002?) 




H'^HSd 


047637 




l^*>0«57 


220020 




M^060 


2(^7637 




1^*^0<S1 


54002(^ 




^•=-062 


741000 




H^063 


740040 




0*^0f4 


040020 




v1'.0(S5 


200030 




^f-0<S6 


047637 




K)f-067 


2?0C30 




ki'^aya 


2(17637 




H«^07l 


540030 




^•^072 


741000 




H»>073 


740040 




vl'^074 


040030 




0*^075 


200050 




H^076 


047637 




'/5^'077 


220050 




^■^100 


207637 




0'=101 


540050 




t4»^lPi2 


741000 




vi^l03 


740040 




i4«-104 


040PI50 




v)'^105 


2001.10 




0'=-106 


047637 




M'^107 


220110 




0«^110 


207637 




vl-^lll 


5 4 0110 




^4^-112 


741000 




/■^ns 


740040 




0''114 


040110 




»1^115 


200210 




0'^116 


047637 




^'^ll? 


220210 




0'^1?0 


207637 




vi-^l?! 


540210 




^''l?2 


741PI00 




ki-^lPS 


740M40 




i^'^l?4 


040210 



/AUTO-lNOEX 

/ 

TSAUTO 



t574 



LAC 20 
HAC AUTNOT 
LAC* 20 
LAC AUTNOT 
SAP 20 
SKP 
HALT 
HAC 20 



F575 

/ 
/TFST 



F576 

/ 
/TFST 



F577 

/ 
/TFST 



F578 



LA 
DA 
LA 
LA 
SA 
SK 
HA 
OA 

AUTO-I 
LA 
OA 
LA 
LA 
SA 
SK 
HA 
DA 

AUTO-I 
LA 
DA 
LA 
LA 
SA 
SK 
HA 
HA 

AUTO-I 
LA 
DA 
LA 
LA 
SA 
SK 
HA 
OA 
.E 



C 30 

C AUTNOT 

C* 3PI 

C AUTNOT 

n 3M 
p 

LT 
C 30 

NDEX 50 

C 50 

C AUTNOT 

n» 5w 

C AUTNOT 

D 50 

P 

LT 

C 50 

NDEX 110 
C 110 
C AUTNOT 
C» 110 
r AUTNOT 

n 11(1 
p 

IT 

r 110 

NUrX 210 
c ?li^ 
C AUTNOT 
r» 210 
r AUTNOT 

n ?i"i 
p 

LT 

C 21"* 
JEHT 



/TFST AUTO-INDFX 20 

/STORE (20) AT AUTNOT 
/FALSE AUTO-INDEX 20 

/COMPARE (AUTNOT) WITH (20) 

/ERROR? (20) AUTO-INDEXED 

/RFSTORE (20) 

/TEST AUTO-INDFX (30) 

/STORE (30) AT AUTNOT 
/FALSE AUTO INDEX 30 

/COMPARE (AUTNOT) WITH 830) 

/error; (30) AUTO-INDEXED 
/RESTORE 30 



/STORE (50) AT AUTNOT 
/FALSE AUTO-INDEX 50 

/COMPARE (AUTNOT) WITH (50) 

/ERROR; (50) AUTO-INDEXED 
/RFSTORE 50 



/STORE (110) AT AUTNOT 
/FALSE AUTO INDEX 110 

/COMPARE (AUTNOT) WITH (110) 

/ERROR; (110) AUTO-INOEXED 
/RESTORE 110 



/STORE (210) AT AUTNOT 
/FALSE AUTO-INDEX 210 

/COMPARE (AUTNOT) WITH (?1PI) 

/ERROR; (210) AUTO-INDFXEU 
/RESTORE 210 
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1 1 1 



i)^j 


L25 


Vl'-J 


L?6 


H' 1 


L?7 


n^-i 


L30 


Hi^l 


L31 


Oh 


L32 


Id'-: 


IM 


0^] 


L34 


^r. 


L35 


H^^J 


L36 


0k 


L37 


n«- 


L40 


1^"=^ 


141 


n«^. 


L42 


01.- 


L43 


0t, 


L44 


0k 


L45 


l/)t^. 


L46 


k 


147 


n«^ 


L^H 


v>)f 


1^1 


^1^^ 


].<=>2 


0r, 


1^53 


K)"^ 


I '54 


k 


I'iS 


0r. 


LS6 


0r. 


1*57 


Hk 


160 


0k 


161 


0r, 


16? 


k 


L63 


0r. 


164 


W'^ 


165 


0r, 


166 


0k 


L67 


0C 


170 



20041(« 
047637 
2P0410 
207637 
5404^0 
741.0011 
740040 
((}404l(?l 



^01010 
047637 
221010 
207637 
541010 
741000 
740040 
041010 



202010 
047637 
222010 
2^17637 
542010 
741f^0M 
740040 
4 2010 



204010 
047637 
224010 
207637 
544010 
74100PI 
740041^ 
M44010 

447634 

605055 
10610? 
106126 



/TFST 


AUTO-INDFX 410 




1. AH 41^^ 




HAH AUTNOT 




LAC* 410 




LAC AUTNOT 




SAfl 410 




SKP 


F579 


HALT 




nAr 41'^ 


/ 




/TFST 


auto-inofx 1010 




I AT 1 010 




OAH AUTNOT 




1 Ar» i(n0 




LAP AUTNOT 




SAO 1010 




SKP 


F5Bi4 


HAl T 


/ 
/TFST 


OAF 1H10 


AIJTQ-INDFX 2010 




LAP ?H1H 




HAH AUTNOT 




1 AT* 2'^IPI 




LAT AUTNOT 




SAP ?H10 




SKP 


F5P1 


MAI T 


/ 
/TFST 


OAF ?010 


AUTO-INDFX 4010 




LAC 41^10 




OAF AUTNOT 




LAr» 4''^10 




LAC AUTNOT 




SAfl 4(^10 




SKP 


F5H2 


MAI T 


/ 


OAF 4m0 


IS? W0»K3 




JMP TSAUTO 




JMS r.FMRAN 




JMS CKMO 




.EJECT 



/STORE (410) AT AUTNOT 
/FAL«?F AUTOINQFX 410 

/COMPaPE (aUTNOT) with (410) 

/ERROR! (410) aUT-INOEXED 
/RESTORE 410 



/STORE (1010) AT AUTNOT 
/FALSE AUTO-INOEX 1010 

/COMPARE (AUTNOT) WITH (1010) 

/error; (1010) AUT-INDEXED 
/RESTORE 1010 



/STORE (?010) AT AUTNOT 
/FALSE AUTO INOEX ?010 

/COMPARE (AUTNOT) WITH (?010) 

/ERROR; (2010) AUTO-INOEXED 
/RFSTORE 2010 



/STORE (4010) AT AUTNOT 
/FALSE AUTO INOEX 4010 

/COMPARE (AUTNOT) WITH (4010) 

/ERROR; (4010) AUTO-INOEXEO 
/RESTORE 4010 

/CHECK DONE LOOPING 
/LOOP 
/GET NO, FOR NEXT LOOP 



USEX9 



PAGE 85 







/TFST 
/ 

LATIM 


LAC INHIRErT 


fcJ-^l?! 


204S44 


LAC K77 


i^-^-l?? 


0S7777 




OAC 17777 


kl^l73 


207627 




LAC M400K 


H^174 


047777 




OAC 07777 


H«^175 


237777 




LAC» 17777 


kl'-l76 


347'i54 




TAn K400K 


^•^177 


740001 




CMA 


fe1'^2P'0 


740200 




S2A 


i^^2eii 


740040 


F5a4 
/ 


HALT 


K)^^2P'2 


204*547 


LAC K76 


k<«-2Pt3 


056666 




PAC 16666 


H«=;2P'4 


207626 




I.AC M4CIK 


k3'^2^5 


047776 




DAC 07776 


H«^2P>6 


236666 




LAC* 16666 


k1*^2(17 


347^53 




TAD K40K 


k)^21H 


740001 




CMA 


l^*^?!! 


74k!)?0PI 




SZA 


^•-212 


740040 


F585 
/ 


MALT 


^■^213 


204=55? 


LAC K75 


H«-214 


05555^ 




OAC 15555 


14"^ 21 5 


20762^ 




LAC M4K 


^^'=216 


047775 




OAC 0777^ 


H«^217 


23555^ 




I AC* 15555 


0^ 220 


347550 




TAD K4K 


M«-2?l 


740001 




CMA 


0«^-222 


74(42(10 




si^ 


^1^223 


74M040 


F5H6 

/ 


HALT 


H^2?4 


204555 


LAC K74 


^5^225 


054444 




DAC 14444 


M'^226 


207624 




LAC M400 


^■^227 


047774 




DAC 07774 


t^^ 230 


234444 




LAC* 14444 


0' 231 


347545 




TAD K400 


^^•-232 


740001 




CMA 


0'S233 


74020PI 




S£A 


0'=2:^4 


740040 


F587 
/ 


HALT 


i^'^235 


204^60 


LAC K73 


(^^^236 


053333 




nAC 13333 


^•^237 


207623 




LAC M4"' 


M«^240 


047773 




PAC 07773 


H'=>24l 


233333 




LAC* 1:^333 


i^»i?42 


347543 




TAP K4v». 


i<:)'^243 


7401^01 




CMA 


01^244 


740P00 




SZA 


i^'^245 


740PI40 


F5Ha 


HAl T 
.EJECT 



/(17777 OK 07777) « 07777 OR 17777 

/377777 

/OR 17777 

/OR 07777 

/AC = 777777 



/ERROR, LAC* 17777 OR 07777 FAILEO 



07776 OR 17776 



/(16666 OR 06666) 
/737777 

/AC = 737777 
/AC = 777777 



/ERROR, LAC* 16666 OR 06666 FAILEO 



= 07775 OR 17775 



/(15555 OR 05555) 
/AC = 773777 

/AC = 773777 
/AC = 777777 



/ERROR. LAC* 15555 OR 05555 FAILED 



= 07774 OR 17774 



/{14444 OR 04444) 
/AC = 777377 

/AC = 777377 
/AC = 777777 



/ERROR. LAC* 14444 OR 04444 FAILED 



= 07773 OR 17773 



/(13333 OR 03333) 
/AC = 777737 

/AC = 777737 
/AC = 77777 



/ERROR, LAC* 13333 OR 03333 FAILED 



iASFV^ 



^ PAGE 


86 






^)' 24 6 


2ViA^6^ 




LAP K7? 


I) "^ i> 4 7 


0S2?2? 




OAT 12?2? 


H'-?Sl1 


2(^762? 




LAC M4 


t>(i>^Sl 


04777? 




OAC 0777? 


0' '^•^i? 


?:^2?22 




I.Ar» 1^222 


l^' ?S3 


347S34 




Tad K4 


0' 2*^4 


740(^01 




HMA 


M«^?S5 


740P0M 




SiJA 


l^'^?S6 


740(^40 


F5H9 
/ 


HALT 


H«-2H7 


204'S7l 


LAC K71 


Hf 260 


0'51U1 




OAH 11111 


v^i^pCl 


207621 




I Af Ml 


H' 262 


047771 




OAT 07771 


H'-^ftS 


2J1111 




l.AC» mil 


^•^264 


34753? 




TAD Kl 


l^«^265 


740001 




TMA 


^•-266 


740200 




S,^A 


H'^267 


740040 


r5<J0 


HAI T 


^■^270 


205427 


l-AC INK5? 


^^271 


055?5? 




PAT 15?5? 


'■ ? 7 2 


207606 




t AH Kin 


1/1^ 273 


0s?S2S 




HAT 12*^25 


i^'^>»74 


23525? 




LAO l'^252 


^"^275 


347605 




TAO K010 


1^^276 


740001 




TMA 


0'^277 


740200 




Sj{A 


i^«- 300 


740040 


i-5Ql 
/ 


HAl T 


^•-3^1 


44 7634 


IS? W0WK3 


i^'-.3P>2 


605171 




JMP 1 AHIN 


0S3{;i3 


10610? 




JMS r.FMRAN 


i')'-3Pi4 


106126 




JMS CKNO 



0777? OH 17772 



/(I???? OR 0?2?2) 
/AC = 777773 

/AC = 777773 
/AC = 777777 



/ERROK. LaC» 1?222 OR 02222 FaILFD 



/(11111 OH 01111) = 07771 OR 17771 
/AC = 777776 



/AC 
/AC 



777776 
mill 



/ERROR. LAC* lUtl OR 1^1111 FAILFU 



02525 OR 12525 



/(15?5? OR 052^2) 
/AC = 525252 

/AC = 525252 
/AC = 777777 



/ERROR. LAC* 15252 OR 0525? FAILED 

/CHECK DONE LOOPING 

/LOOP 

/GET NO, FOR NEXT LOOP 



.tJECT 



iASEy9 PAGE 


87 


r t tt 




B^^SfS 


744t^0PI 


k1'S3(»6 


7'50(1«P) 


ki«=>3«7 


54772? 


fc»«^310 


74100(^ 


i^^311 


740P)4PI 


M^312 


206(^6«^ 


14^313 


047777 


1^*^314 


2PI543P' 


t1'^3i5 


04772? 


H«^316 


055?5? 


^•^317 


2P15431 


0^3?0 


0«i7777 


^'■:s?x 


4l5?5? 


H'^3?2 


74lP)0(« 


l('*^3?3 


14772? 


H'^3?4 


217776 


«}'^3?5 


545*3? 


fei'^'3?6 


75H^0Pt 


14 •=3?? 


740(^4(' 



0^330 
^■^•331 
*3'^332 
H'='333 

iil'=^334 

0'-335 
fe)t 336 
0^337 
0'=i340 
0«S341 

^'=^342 
^'='343 
k!)»^344 
0'='345 
1^^346 
0«-347 
M^350 
M^351 
0^352 



744000 
750000 
547723 
741000 
740040 

206075 
056666 
205433 
047723 
05525? 

205434 
05111? 
615252 
741000 
147723 
211111 
545435 
751000 
740040 



/TFST XCT 

/ 

XTJMSI 


JMS 


INDIRECT 


CLL 






CLA 






SAD 


JST77 




SKP 




F5Q2 
/ 


HALT 


LAC 


K17776 




HAH 


07777 




LAC 


JMSIl 




OAC 


JST77 




OAC 


15052 




LAC 


RJMIi 




PAC 


17777 




XCT 


15252 




SKP 




RJSIi 


DgM 


JST77 




LAC 


17776 




SAD 


RJSIiX 




CLAl 


ISKP 


F593 


HALT 



/ 
/ 

/TFST 
/ 



F594 
/ 



JMS INDIRECT 

CLL 

CLA 

SAD JST66 

SKP 

HALT 



PJSI2 



F595 



LAC 
DAC 
LAC 
DAC 

DAC 

LAC 
DAC 
JMP 
SKP 
D2M 
LAC 
SAD 



KlUll 

16666 

JSI66 

JST66 

15?5? 

PJMI2 
11112 
15252 

JST66 
11111 
K1S253 



/OP 0111? 



CLA'SKP 
HALT 

.EJECT 



/ERRDR. JMS DEST'B ERROR 

/DIRECT ADDRESS 

/JMS» 07777 OR 17777 
/ERROR TABLE 

/JMP RJSU 
/XCT TFST 



/RJSIlX = RJSU-I 

/ERROR (17776 OR 07776) 
/TO RJSU-l 



NOT 



/ERROR, JMS DEST'N ERROR 



/DIRECT ADR 
/OR 06666 
/JMS« 16666 

/JMS» 16666 
/OR PI5252 / 
/JMP RJSI2 

/OR 05252 



/CLEAR ERROR TABLE 



mil OR 01111 



OR 06666 



OR 06666 AT 15?52 



/ERROR. RJMP 
/NOT 15253 OR 



ADR. (11111 
05253 



OR 01111) 



u 


^Ty^ PACE 


PH 








t t 


f t 


744C^0PI 




nil 






t^'-JS4 


7'SH0«^i 




TLA 






ti'-jS5 


547724 




SAfl JST55 






^' S^f) 


7A\<^9if^ 




SKP 






i-i' ,5'>7 


740C14C1 


f 596 


HALT 


/FPRPR. JMS nEST'N ERROR 




t'l^ ,?A0 


;^06t^73 




LAf K1P222 


/DiRFCT ADR. 12222 OR 0222? 




^'^S'*! 


H«>5^5'i 




HAf: 15555 /OR 


055555 




i^'^.i^?? 


2<^543ft 




LAC JSf55 


/JmS» 15555 OR a5555 




vi'-^^^s 


^^47724 




HAf: JST55 






^^ K ,s 6 4 


k1'55?5? 




HAf 15?52 


/JMs» 15555 Or 05555 AT 
/15252 OR 05?5? 




H' 3A5 


2(^5437 




LAP RJMI3 


/JMP RJSI3 




if^'-,5^6 


H52:'2^ 




HAT 12?23 


/OR 02223 




/"^ifS? 


61525? 




JMP 15'^5? 


/OR 0525? 




il'-37(^ 


741(^0(1 




SKP 






^■^371 


147724 


WJSM 


n?M JST55 


/CLEAR ERROR Table 




H'-37i» 


21222? 




I AC 12?2? 


/OR 02?2? 




^■-373 


545435 




SAO KitS2S3 






^' 374 


751110P' 




TLA'SKP 






^••375 


740t'4f^ 


^507 


HALT 


/ERROR. RJMP AOR. (12222 OR 
/NOT 15253 OR 05253 




(^■-376 


744'^0(1 




CLL 






z'' 377 


7S^^00PI 




CLA 






vl «■- 4 ((1 


547725 




SAP JST44 






/I *- 4 f* 1 


7411^ PJP' 




SKP 






1^1^402 


7 4 4 P* 


/ 


HAI T 


/ERROR, JMS OEST'N ERROR 




.^ ^ 4 P> 3 


2PI6t^7l 


1 AC K13333 


/OIRFCT ADR. 13333 OR 03333 




1-1 "- 4 PI 4 


l?)54444 




HAG 14444 


/OR 04444 




/) «" 4 5 


2PI544P' 




LAr JSU4 


/JMS» 14444 OR 04444 




i/l«- 4M6 


kl47725 




HAT JST44 






v1 p 4 P 7 


M5525P 




DAC 15V5? 


/OR 0525? 




M«^41H 


205441 




LAT WJMI4 






^1 ■- 4 1 1 


053334 




PAC 13334 


/OR 03334 




i')'^4l2 


61525? 




JMP 15'55? 


/OR 05?5? 




•/>'■ AVS 


741PI0PI 




SKP 






^c-4-14 


147725 


PJ'^H 


ni?M JST44 


/CLFAk ERROR TABLE 




1/1 «"- 4 1 5 


213333 




LAH 13333 


/OR 03333 




vi ^- 4 1 6 


545435 




SAP K15253 






/l'^ 41 7 


75lt^0P' 




CLA iSKP 






vl"- 4?0 


74 4 


F5Q9 


MALT 


/ERROR. RJMP ADR (13333 OR 
/NOT 152S3 OR 05253 




k1'^4?l 


447634 




IS? W0RK3 


/CHEOK DONF LOOPING 




/I-" 4?? 


6(^5305 




JMP VTJMSI 


/LOOP 




i^^4?3 


10610? 




JMS CfMRAN 


/GFT NO. FOR NFXT LOOP 




vl "^ 4 ? 4 


106126 




JMS HKMO 






i4t-4P5 


700(^04 




nLf'F 






^^'"4?6 


60544? 




JMP yTvCT 
.FJEHT 


/TEST XCT INDIRECTS 



J'2222) 



fc)3333) 



MASFX9 PAGE fl9 
1 1 1 1 



H'^4?l 
H^432 
^^•-433 
^•='434 
^•-435 
^•^436 
HS437 
k1^440 
*5^441 



171111 
6P55323 
00532? 
13666A 
605346 
015P53 
135555 
605371 
134444 
605414 



/CONSTANTS FOR LAC», 


/WHEN !N 

/ 

1NK5? 


UPPFR 4K 


12''2'5 


JMSIl 


JMS» 07777 


RJMIi 


JMP RJSII 


PJS11X 


RJSI1-1 


JSI66 


JMS« 16666 


RJMI;;) 


JMP RJSI? 


K15253 


15?53 


JSI55 


JMS# 15555 


PJMI-^ 


JMP RJSI3 


JSI44 


JMS» 14444 


RJMI4 


JMP RJSI4 




.EOT 



XCT JMS* MODIFIED 



'U'^EX^ 



PAHE 90 







/pnp-9 


I HASIC EXERCISER - TAP 






/TEST 
/ 

XTXCT 


XCT 


INOIRECT 


H' 442 


70«('0? 




lOF 


k^ 1-443 


207'53i 






LAC K0 


i^'>444 


057777 






OAC 17777 


H^.445 


2f'55ift 






LAC XCTDFM 


Hf-446 


040fi00 






nAC 


^5^ 44 7 


777777 






LAW 17777 


(^»-4S0 


H'Si?'52'^ 






nAC 12525 


HP.4*>1 


437777 






XCT» 17777 


l^'^4'=>2 


212^25 






LAC 12525 


Hr,4R3 


74020PI 






SZA 


vic,4S4 


740040 


F600 




HALT 






/ 

/TFST 
/ 


IS? 


INniRECT. PI IS OFF 


H«=4b;5 


207=^31 




LAC K0 


^^«^4•^6 


057777 






RAC 17777 


i^t^4'=;7 


777777 






LAW 17777 


t1^ 4i*'0 


040(^100 






nAC n 


i^^ 4<S1 


477777 






IS?* 17777 


^^4f<2 


740040 


F6(^l 




MALT 
.EJECT 



/PI OFF FOR XCT* TO liSE 
/LOCATION 

/OR 07777 

/D?M 12525 OR 0252^ 

/(1252'> OR 02525) s 777777 
/OP 07777 
/OR 02525 

/ERROR. XCT* A 0?M FAILED 
/(12525 OR 02525) NOT 777777 



/OR 07777 

/(0) = 777777 

/ERROR ISi* FAILFO TO SKIP/ 



HASrX9 PAGE 


91 


1 1 1 1 




^•^4 63 


207531 


V>^Af»4 


0'57777 


k»'-4ft5 


20753? 


M'^'466 


0S7776 


0^467 


205^17 


H^470 


040000 


I4'=>47l 


207603 


tl'^472 


040001 


^^•-.473 


750001 


MS474 


437777 


H»^475 


547603 


kl^476 


741000 


^»^477 


740040 


k1'S5P»0 


447634 


0^5(3 j^ 


60544? 


HK5P.2 


10610? 


H'^5Pi3 


106126 


i^K5fii4 


207617 


14^^505 


040001 


0«^«>f16 


750004 


0C5P17 


740010 


0«^510 


740100 


vl'^511 


70004? 


^•^512 


507557 


^•^513 


741?00 


^^•^514 


106604 


^■^515 


605520 



/TFST XCT« AND* PI IS OFF 

/ 

LAC K0 
DAC 17777 
LAP Kl 
DAC 17776 
LAC ANDI 
nAC 
LAC K2525 
nAC 1 
CLASCMA 
XCT» 17777 
SAO K2525 
SKP 

r602 HALT 



1S2 W0RK3 

JMP XTVCT 

JMS GEMRAN 

JMS CKMO 

lAC KSKP 

DAC 1 

LAS 

PAL 

SMA 

10^^ 

AMD K2(^K 

SNA 

JMS SETCLK 

JMP AUTOIN 

.EJECT 



/OR 07777. INDIRECT ADR FOR XCT* 
/DIRECT ADR, FOR AND* 
/OR 07776 

/ANO» 17776 OR 07776 

/(I) s 2525 
/AC = ONES 
/OR 07777 



/ERROR. XCT» 17777 OR 07777 

/FOLLOWED BY AND» 17776 

/OR 07776 FAILED 

/CHECK DONE LOOPING 

/LOOP 

/GET NO, FOR NEXT LOOP 



/RESTORE LOC 1 



/PI RACK ON 



/TEST ACS5 



/CLOCK BACK ON 

/TEST INDEX REGISTERS 



HASE)(9 



PACE 02 



r t t t 



/CfiNSTANTS FOR PPECEDlNG LOOPS, MOPIFIFU WHEN IN UPPER 4K 
/ 



-1^516 


152^25 


XCTCM 


n,fM 12^25 


^'- SI 7 


5-^7776 


anhi 

/ 


AnH* 17776 






/ 

/TKST 
/ 
AUTOIN 


AUTO-INDFX (X0R» 10) 


il'^SPn 


2V\6</'tl^ 


LAC K17776 


il'"5?l 


H4M01(1 




OAT 10 


i/l'-S?? 


207565 




LAC KIS 


n'-SPS 


H57777 




OAC 17777 


H' 5?4 


260t^lP! 




yuR» I'l 


il-^SPS 


74HP0PI 




S^A 


i^i^spe 


740PI4(^ 


F603 


HALT 


/t'^5?7 


2HHM1(' 




LAC 10 


^'- bT^fd 


546(^61 




RAH K17777 


/i^=-5:^l 


741i^0(i 




SKP 


^■^ 53? 


7 4 ('1 4 pi 


F604 
/ 


HALT 


/^533 


2(16P'6? 


I AC K16665 


vi'^534 


l^4H0lPi 




OAC 10 


i1^«>3 5 


2(17'S66 




LAC K2S 


^■^5^6 


1^56^66 




OAC 16^66 


H'=-5."^7 


26«!^lf1 




yoP» l(^ 


^'5 4 t1 


74«90f1 




Si?A 


il"^ 5^1 


740H4P' 


r605 


HALT 


H'^542' 


?P10Pll(^ 




LAC in 


I'l'^ 54J 


546P)63 




SAO K16666 


■^'-■544 


741i?i0« 




SKP 


0'"545 


740C14PI 


f6t^6 
/ 


MALT 


^^i- 54 6 


2PI6PI64 


LAC K1^554 


M'-547 


(140(^lPI 




OAC 10 


0"^ 550 


2^^7567 




I AC KiS 


H>-5'S1 


055555 




DAC 15^55 


^•-552 


2601110 




yrjp* IP 


H'^-553 


740?00 




Ri'A 


(/) •- 5 *=; 4 


740P'40 


F6t^7 


MAI T 


W^ 5S5 


2 M 1 




LAC 10 


kl'^5'^6 


546(^65 




SAO K15555 


i^'~557 


74100Pt 




SKP 


i^'-560 


740H40 


F61^8 


HALT 
.LJECT 



/(10) = 17776 OR 07776 
/AC = mil 
/OR 07777 



/ERROR. XOR» 10 FAILED 
/AC NOT mill 



/ERROR, (10) NOT INCREMENTED*! 



/(10) = 16665 OT 06665 
/AC = ?2?2? 
/OR 06666 



/ERROR, XOR* 10 FAILED 
/AC NOT 2222? 



/ERROR, (10) NOT INCREMENTFO*! 



/(10) = 15554 OR 05554 
/AC = 333333 



/ERROR. XOR» 10 FAILED. AC NOT 333333 



/ERROR, (10) NOT INCREMENTED +1 



•USEX9 



1 1 1 1 



9 PAGE 


93 






^•^561 


20606ft 




LAC K14443 


H«^5ft2 


040010 




DAC in 


H*i563 


207S70 




LAC K4S 


M«^564 


054444 




nAC 14444 


H«^5ft5 


260010 




XOR* 1'^ 


^•^566 


740P00 




%iK 


i«*^^5ft7 


740040 


F609 


HAl T 


k)<=570 


200010 




LAC 10 


M'^571 


546067 




SAD K14444 


0*572 


741000 




SKP 


0»^573 


740040 


F610 


HALT 


HS574 


206070 




LAC K13332 


H^575 


040010 




DAC 10 


k)'^576 


207571 




LAC K5S 


H«=577 


053333 




nAC 13333 


M'='6f^0 


260010 




XOR» I''' 


K)^6Pll 


740P00 




S2a 


0«S6Pt2 


740040 


P611 


HALT 


0^6Pt3 


200010 




LAC 10 


0«^6P'4 


546071 




SAD Kl-^333 


l/1'^6C^5 


741000 




SKP 


vi^ev^b 


740040 


F612 

/ 


HALT 


0'^6(17 


206072 


LAC K122?1 


^•=^610 


040010 




nAC 10 


0^611 


20757? 




LAC K6S 


0-^612 


05222? 




nAC 12?2? 


^•^biZ 


260010 




XOR» I'/l 


va'-614 


740200 




S2A 


v1«^-615 


740040 


F613 


HALT 


0'^616 


200010 




LAC 10 


0'^617 


54607"^ 




SAn Kl?222 


0^6?0 


741000 




SKP 


0^'6?1 


740040 


F614 


HALT 


MS6?2 


206074 




LAC K11110 


^ 6 ? 3 


040010 




nAC 10 


H'^6?4 


2^17573 




I AC K7S 


^«-6?5 


1^51111 




nAC 11111 


0'^6?6 


260010 




XOP» 10 


0'^6?7 


740200 




S£A 


0^630 


740040 


F615 


HALT 


0^ 631 


200010 




LAC 10 


0'^632 


546075 




SAD Klilll 


0^633 


741000 




SKP 


0'^^634 


740(^40 


F616 


HALT 
.EJECT 



/(10.) « 14443 OR 04443 
/AC » 444444 



/ERROR, XOR» 10 FAlLEn AC NOT 444444 



/ERROR. (10) NOT INcREMENTFD ♦! 

/(10) « 1333? OR 03332 
/AC s 55555 



/ERROR. XOR* 1^ FAILED AC NOT 555555 



/ERROR. (10) NOT I NCREMENTED*1 



/(10) « 12221 OR 02221 
/AC = 666666 



/ERROR, XOR» 10 FAILFD. AC NOT 66666^ 



/ERROR, (10 NOT I NCREMFNTEO+l 

/(10) s 11110 OR 01110 
/AC = 777777 



/ERROR. XOR» 10 FAILED, AC NOT 777777 



/ERROR. (10) NOT INCREMENTFO +1 



fU^^Evy PAr,E 


04 


» 1 1 r 




k1'-635 


2(^6iV^ 


vl'^636 


^^40f^ll 


^^•-6.17 


2H7'^7>^ 


H' 640 


i^55?5:^ 


H^^641 


4ft0(il1 


«^642 


74M(^4(^ 


k3'-643 


215P53 


H'-644 


74020P) 


H«.645 


74004PI 


H'^646 


2«0(^lt 


^•^647 


54543'=> 


M''6'=>l^ 


741004^ 


H f ■ 6 S 1 


740PI4(1 



i^'-652 
^^-6^4 

/»' 660 
/ "^ 6 6 1 
»<1'^66? 
t^^663 
t4'^664 
H^665 
k^'-666 
/)'^667 
Mf 670 
^)'^671 



^^•-672 
0'-673 
(^«^674 
0^675 
0^676 
^•=^677 
0"^ 7(^0 
0'-7C'l 
^«-7("2 
k)'^7(i3 
0«^7P"4 
Hf.7pi5 

0'=^7P16 



207726 
740200 
740040 
207651 
047726 
206077 
05525:^ 
206'?'76 
040^1? 
62001? 
7411^00 
147726 

200fn? 
54^435 

741000 

740040 



204^47 
040013 
204547 
047777 

207'>31 
060013 
207777 
740200 
740040 
200013 
544544 

741000 
740040 



/TFST IS7* 11 

/ 

lAr Kl'S252 
HAT 11 
LAC K7S 
lUr 15253 
IS?» 11 

F617 HALT 



r6l8 



I An 1*3253 

S^A 

HALT 



LAC 
qAd 
SKP 

F619 HAL' 

/ 

/AUTON-lNOrX 

/ 

LAC 
Si'A 

f-6?0 HAL" 
LAC 
HAC 
LAC 
OAC 
LAC 
OAC 
JMP 
SKP 

AUTR n,<M 
LAC 
SAn 
SKP 
HAL 



u 



JMP* 12, 
AUTJMP 



JMPAUT 
AUTJMP 
AUTRFT 
15253 
Kl'^252 
12 
• 12 

AUTJMP 

12 

K1S253 



F6?l 

/ 

/AliTn-INnFX (OAC» 13), 

/ 



F6 22 



F623 



LAC 
OAC 
L AC 
OAC 
LAC 
OAC 
LAC 
S^A 
HAl 
L AC 
SAO 
SKP 
HAL 
.tJ 



K7*> 
M 

07777 

K0 

07777 



1 3 
K77 



T 

ECT 



/(U) r 1525? OR 05252 

/OR 05253 

/ERROR, IS? FaILFD TO SKIP 
/AUTn-INDEX 11 FAlLEn 



/FRROH. (15253 OR «5253) NOT \d 
/IS2 FAILED 



/ERROR. (11) NOT INCREMENTFD+1 



/ERROR. JMP» 12 FAILED TO REACH 15253 
/JMP» 12 

/RJMP TO AUTR 



/(12) = 1525? 
/CLEAR ERROR TABLE 

/ERROR. (12) NOT I NCREMENTED+1 

/(13) = 07776 OR 17776 
/(07777) = 07776 

/ERROR. (07777) NOT 0. OAC» 13 FAILED 
/ERROR (13) NOT I NCREMENTEO*! 



HASEX9 PAGE 


95 






1 1 1 1 












/Aiijn- 

/ 


INOEX (XCT» 14). 


^^1^1 


204'>71 


LAC K71 


U*^710 


040014 




HAC 14 


«^711 


207ft4? 




LAC AUTCMA 


fcl'-7l? 


04777? 




OAC 07772 


0«^713 


7'5000l 




CLAtCMA 


0*^714 


420014 




XCT* 14 


0«^715 


740200 




SZA 


0*^716 


740040 


F624 


HALT 


0'=717 


200014 




LAC 14 


0*^720 


544563 




SAO K7? 


0«;7?1 


741000 




SKP 


0'^7?2 


740040 


F6?5 

/ 

/AUTn- 

/ 


HALT 






■INDEX (TAO» 15), 


0'-7?3 


206060 


LAC K17776 


i4'=<7?4 


040015 




DAC 15 


H'^7?5 


20753? 




LAC Kl 


H^^7?6 


057777 




OAC 17777 


0'=727 


754001 




CLL'CLA'CMA 


H'=>730 


360015 




TAn» 15 


«'=;731 


740200 




S£A 


65«^732 


740040 


F6?6 


HALT 


i^^733 


740400 




SNL 


a'^734 


740040 


F6?7 


HALT 


ia«^735 


200015 




LAC 15 


0'^736 


546061 




SAO K17777 


0'=737 


741000 




SKP 


0^740 


740040 


F6?8 


HALT 


^•=741 


217777 




LAC 17777 


0*^742 


54753? 




SAO Kl 


0^743 


741000 




SKP 


0^'744 


740040 


F629 

/ 

/AUTO- 

/ 


HALT 






•INDEX (SAO» 16), 


0'=i745 


204555 


LAC K74 


0»>746 


04001ft 




DAC 16 


0«^747 


207604 




LAC K5?5? 


0^7*50 


047775 




DAC 07775 


0»>7S1 


560016 




SAD» 1(S 


0«S7S2 


741000 




SKP 


0^7^3 


740040 


F630 


HALT 


H«^754 


207775 




(AC 07775 


^•-7^5 


547A04 




SAD K5?5? 


k1^756 


741000 




SKP 


0»-7'^7 


740040 


F631 


HALT 


0^^760 


200016 




LAC 16 


0^761 


544552 




SAD K75 


0*^762 


741000 




SKP 


0'^-763 


740040 


F632 


HALT 
•EJECT 



/(14) « 07771 
/(07772) » CMA 

/ERROR. AC NOT (XCT» 14) A CMA 

/ERROR, (14) NOT INCREMENTEU+1 

/(15) = 17776 OR 07776 
/OR 07777 

/ERROR. AC NOT (TAD» 15) 
/ERROR. LINK NOT 1 (TAD* 15) 

/ERROR, (15) NOT I NCREMENTEO*! 

/ERROR. (17777 OR 07777) NOT 1 

/(16) » 07774 
/(07775) s 5?52 

/ERROR. SAD SKIPPED (SAO* 16) 
/ERROR, (07775) NOT 5252 
/ERROR. (16) NOT I NCREMENTEQ+l 



USFXg PACE Q6 



1 1 1 1 







/Aiiin- 


INPEV (JMS» 17) 


H^ 7<^4 


2^^7727 


t.AC AUTJMS 


^'7^5 


744?0PI 




Si^AlCLL 


A^lf^b 


740(MPI 


F633 


HAlT 


^^^If^l 


20610^ 




t AC aUTRJM 


H^77(?l 


047773 




DaC 07773 


^1^^771 


204'=>71 




I AC K71 


fi^n2 


040017 




(ur 17 


'^'-77 5 


207647 




LAC JMSaUT 


^•■774 


047727 




HAC AUTJMS 


^"^775 


120017 




JMS» 17 


k)'^776 


741000 




SKP 


H^777 


147727 


AUTRFl 


n?iiM AUTJMS 


!<1^0(^H 


20777? 




LAC 07772 


.Ifplf^l 


546101 




SAD AUPJMP 


0^HP»2 


741000 




SKP 


^ic-H(^3 


740040 


F634 


HALT 


1/1(^004 


200017 




LAC 17 


ir1i^0P'5 


544^63 




SAD K70 


^j^M{^6 


741000 




SKP 


vl^P)(i7 


740040 


F635 

/ 

/AUin- 
/ 


HALT 






INdEV ( IS?» 10) 


^^01H 


207535 


LAC Kli' 


0<^01 1 


040010 




HAH 10 


w^01 2 


207573 




LAH K7S 


>t^013 


040011 




OAf 11 


v1^M14 


460010 




IS?* 1'^ 


va<^M15 


740040 


F636 


HALT 


.^^M16 


200010 




LAP 10 


^1^M17 


547536 




SAD Kll 


v^i^tiPW 


741000 




SKP 


0^0?1 


740040 


r637 


HALT 


il/'M?? 


200011 




LAC 11 


0^M?3 


740200 




S£A 


^(^P1?4 


740040 


r63b 

/ 

/AIITO- 

/ 


HALT 






I'MPFV ( IS?# 11) 


^/1^fc^?ei 


207535 


LAC Kl'-l 


t/>f 0?6 


040011 




nAC 11 


((1^0?7 


460011 




IS?» 11 


1^^030 


200011 




LAC 1 1 


^1^031 


547537 




SAP K12A 


i^''03? 


741000 




SKP 


06033 


740040 


r639 


HAl T 



ya/ 5- :'■•>) 



/ERROR. ERROR TaBLF NOT 

/JMP aUTREI 

/(17) = 07771 

/JMS» 1 7 IN ERROR TaRLE 

/CLEAR ERROR TABLE 



/ERROR. (07772) STORED WRONG 
/(07772) SHOULD s AUTREl-1 



/ERROR. (17) NOT I NCPEMENTEO*! 

10. 



/(ID = 777777 

/ERROR. IS? FAILED TO SKIP 

/ERROR. (10) NOT 11 

/ERROR. (11) NOT 
10. 

/(ID = 10 



/ERROR. IS?» 11 FAILED TO 
/INCREMENT +2 (ID 



.EJECT 



HASEX9 PAGE 


97 


t t T t 




0f0>14 


204560 


0^035 


04001S 


H(^0?6 


207A4*) ^ 


Hfr037 


047774 


^^^040 


207646 ■> 


V)fr041 


047775 


Hfr042 


750000 


((J(^043 


42001S 


/f 044 


740001 


tif 045 


740P00 


v^f046 


740040 


M<^047 


200015 


l^<'0«50 


54455? 


^5^051 


741000 


0f0S2 


740040 


1^^053 


447634 1 


/f054 


605520 


H60«>5 


777775 


H^056 


047634 2 


v)f 0S7 


606154 



/AiiTn-iNnEX 
/ 



(XCT* 15), 



r640 



F641 



LAC 

nAC 

LAC 

HAC 

LAC 

DAT 

CLA 

XCT» 

CMA 

S2A 

HALT 



K7.^ 

15 

LAWAUT 

07774 

LAWFUL 

07775 

15 



15 

K75 



LAC 

SAP 

SKP 

HALT 

IS? W0WK3 

AUTOIN 

-3 

W0RK3 

CHKBRO 



JMP 
LAM 
DAC 
JMP 



/{15) » 07773 
/(07774) * XCT» 15 

/{07775) B LAW 17777 

/AC = 



/ERZOR. AC NOT ONES 
/LAW 1777 DID NOT OCCUR 



/ERROR. (15) NOT 7775 (XcT» 15) 
/CHECK DONE LOOPING 
/LOOP 



/BASIC MEMORY CHECKERBOARD 



.EJECT 



U'^EVQ 



PAGE 08 



1 1 1 1 







/CONSTANTS FOR A'lTO- 

/ 


HCM^fe) 


01777ft 


/ 

t<l7776 


17776 


t) ^ PI ft 1 


^17777 


K17777 


1 7777 


vU 6 2 


0l6ft65 


Kift6ft5 


l666'S 


M(tK)63 


laiftftft^ 


Ki66ft6 


16666 


vafMft4 


015554 


t<l5554 


15554 


116^65 


015'?55 


K15555 


15*^55 


H^066 


014443 


K 1 4 4 4 3 


14443 


i360ft7 


014444 


K14444 


14444 


i^ftPI70 


01333? 


K 13332 


1333? 


^^071 


H13333 


K 13333 


13333 


;^^M72 


012?21 


Ki?2?l 


I2?2l 


idf H73 


012P2? 


Kl?2?2 


12?2? 


Hi^074 


011110 


K11110 


llllt^ 


i,f1.'M75 


011111 


►^11111 


11111 


0^076 


01525? 


K1S252 


1525? 


l^r077 


6Pt5ft65 


AUTRET 


JMP AMTR 


i^^lPB 


605777 


AUTRJM 


JMP AUTRFl 


^ 1 P* 1 


005776 


AURJHP 


AUTREi-i 
.EJECT 



MODIFIED WHEN IN HI 4K 



!rtASEX9 PAGE 


99 








t t t t 




/RANnOM 

/ 

HEMRAN 


NUMBFR GFNPRaTORS 




^t\Vi2 


000000 







HM(»3 


206123 




LAC RANDFX 




^^lpi4 


546124 




SAO FNnTRL 


/CHECK FOR END OF TABLE 


'Af-\?>5 


741000 




SKP 


/END 


vi^lPi6 


606116 




JMP RANTAO-1 


/GFNFRATE RANDOM 


Hf IP17 


20612'? 




LAC TBLTOP 




kJ^llB 


046123 




OAC RANDFX 


/RrSFT INDEX TO FIRST 


VK^IU 


20765*^ hf' 




LAC RANCON 


/POSITION MOniFIER 


k^^l12 


744010 




CLLJRAL 


/I LEFT 


H^113 


741400 




SfX 


/WAS BIT A 1 


0fll4 


34753? ji 




TAD Kl 


/YES MAKE 17 A 1 


Vlfll5 


04 7655 ^?f 




DAC RANCON 


/RESTORE MODIFIER 


i^M.16 


226123 




1 AC» RANDEX 


/GET FIRST CONTROL 


M^117 


34 7655 ^r.\ 


RAMT40 


TAO RANCON 


/ADD MODIFIER 


t^fl?0 


066123 




OAC* RANOEX 


/NEW CONTROL s RANDOM 


fel*^!?! 


446123 




IS? RAMOFX 


/STEP POINTER 


H^l?2 


62610? 


/ 
RAMOEX 


JMP» GFNRAN 


/EXIT 


0^1?3 


00 7666 7,-' 


RANTRL*10 


■,]'■- 1 


k)^l?4 


00 7666 7/' f v 


KNOTRL 


RANTBL*10 




0^125 


007656 „ ■ 


TBITOP 

/ 
CKMO 


RANTRL 


'' r^f\~ll 


0^126 


000000 





'fO^i 


Hfrl?? 


507610 





'.- AND K37S 


/MAKE 65K OR LESS 


0^130 


740001 




CMA 




e'''i3i 


047(S34 




DAC WqRK3 


/LOOP COUNTER 


t1<'l32 


6?61 26 


rangf.n 


JMP» CKNO 


/EXIT 


0(^133 


000000 







k)6134 


206123 




l.AC RANDFX 




0^135 


546124 




SAO FNOTPL 


/CHECK FOR TABLE END 


0<'136 


741000 




SKP 


/END 


0^137 


606147 




JMP TAORAN-l 


/GENERATE RANDOM 


f' 1 4 


206125 




LAC TBI TOP 




0C-141 


046123 




nAC RANDFX 


/RESET INDEX TO FIRST 


0M42 


207^5"^ 




LAC RANCON 


/POSITION MOniEIER 


0f 143 


744010 




CLL'RAL 


/I LTET 


0^144 


741400 




S^L 


/WAS BIT A 1 


0^145 


34753? 




TAn Kl 


/MAKE 17 A 1 


0^^146 


0476«)5 




OAC RAMCON 


/RESTORE MODIFIER 


0^147 


226123 




LAC» R4NnEX 


/GET FIRST CONTROL 


0^150 


34765^ 


taoran 


TAD RANCON 


/ADD MODIFIER 


0^151 


066123 




rue* RANOEX 


/NEW CONTROL » RANDOM 


0^152 


446123 




IS? RANDFX 


/STEP POINTER 


0^153 


626133 




JMP» RANGEN 
.EJECT 


/EXIT 



/J 



'<A<ny 



y PACE 


lt^« 


^( 1S4 


l\A\fi^if>? 


'At \^^ 


75til'ifi4 


v^^lS6 


7 4li}tni^ 


^tX'^l 


7401 Mt^ 


At Xh9 


7H01M? 


/M^l 


mill 


H^ 1^2 


047.U7 


v1^ 163 


2C^616S 


i^^l64 


H46.'^3? 


'/) '^ 1 6 5 


2(^7:sni 


»1'^166 


i^47,^H'S 


1(1^167 


14763? 


UC170 


7C177«4 



chkbpo 



0<f-l7l 
0^172 
(^^173 
1,:)^ 174 
A(-\lb 
At lie 
^f 117 
Af~2(^iA 
«1'^2r'l 
v1^2Pi2 
i^<' 2(^3 
c- 2 1^ 4 

fAf 2(^6 
At ?(il 

At■2^9i 

v^ ^ 2 1 1 

At■2^ 2 
At2^^ 

/^214 
11^215 
At 2\h 
e)62l7 
At-2?^ 
Af^2?\ 
At272 
At22i 
^16224 
M6225 
1^6226 
At 221 
At 2:^0 
0^231 
0^232 
0^233 



1(^631? 
20730*) 
047307 
111116 
047314 
11111^ 
047277 
llllbV' 
A^l'?lf, 
207307 
047306 
207306 

7 4 4 'M ^^ 
047:^0*^ 
7Sl40f^ 
740001 
067300 
20730;^ 
5465^61 
606234 
447300 
447276 
606204 
447P77 
60620"' 
20730"=. 
744020 
7 04 00 

6 6 'P 3 
447314 

606176 
207307 
740001 
4 7 3 7 
6061 74 



lOF 

LAS 
RAL 

SMA 

Ion 

LAW 
HAC 
t AC 

nAC 

I AH 

OAC 

LEM 



-I 

HlTSUP 
. *'> 

NEyPAT 
KPAT 

MPAT 
WO'^Kl 



/LOAn CHFCKERBnARO 
/ 



1 OAO 

I CNTA 
I CNT« 

WCI OOP 



JMS 
I AC 
OAC 
LA 1^1 
RAC 
I AW 
HAC 
LA>^ 
OAC 
LAC 
OAC 
I AC 

RCL 
OAC 
SiiL 
CHA 
OAC 
I AC 
qAP 
JMP 
IS? 
IS? 
JMP 
IS? 
JMP 
LAC 
PCR 
SNL 
JMP 
IS? 
JMP 
LAC 
CMA 
OAC 
JMP 
.EJ 



ADJUST 

MPAT 

PATWn 

-2 

WC?56 

WC128 

-2^ 

^^C16 

PATwn 

PATH 

PATR 

PAIR 
!Cl« 

♦ LLRFG 
l.LREG 
K17777 
READ 
LLREG 
WC16 
WCI.OOP 
WC128 
LCMTP 
MPAT 



WC?56 
I CWTA 
PATWD 

PATWO 
LOAD+2 
ECT 



/Check pi inhibiteo 
/PI on 



/-I6 DFCIMAL 



/test for a 1 or 

/store woro 

/donf loading? 
/yfs 

/INCR. ADR 
/16 WORDS? 
/NO 



HASEX9 PAGE 


101 


1 1 tt 




06234 


207305 


0f235 


047633 


0^2:^6 


10631? 


0^237 


777776 


0^-240 


047314 


0^241 


777770 


0^242 


047?77 


0^243 


207633 


0^244 


047306 


0^245 


777760 


0f246 


047?76 


0^247 


77777? 


0^250 


047?4? 


06251 


207306 


06252 


744010 


06253 


047306 


06254 


751400 


06255 


740001 


06256 


047307 


06257 


227300 


06260 


740001 


06261 


067300 


06262 


44724? 


06263 


606257 


06264 


227300 


06265 


547307 


06266 


741000 


0^267 


606340 


06270 


207300 


06271 


546061 


06272 


606325 


06273 


447300 


06274 


447?76 


06275 


606?47 


06276 


447?77 


06277 


606?43 


06300 


207705 


06301 


74402P' 


06302 


740400 


06303 


606306 


06304 


447314 


063(^5 


606241 


06306 


207633 


06307 


740001 


06310 


047633 


06311 


606?37 



/RFAn CHFCKERBOARD 



READ 



RCNTA 



RCNTR 



RCLOOP 



RQRTN 



LAC MPAT 

HAC W0RK2 

JMS ADJUST 

LAW -2 

DAC WC256 

LAW -10 

OAC WC128 

LAC WORK? 

DAC PATR 

LAW -20 

nAC WC16 

LAW -6 

HAC CRLF 

LAC PATR 

RCL 

nAC PATR 

S2LJCLA 

CMA 

HAC PATWD 

LAC» LIRFG 

CMA 

DAC» Ll.REG 

IS? CRLF 

JMP .-4 

LAC« LLRFG 

SAP PATWD 

SKP 

JMP ERROR 

LAC LLREG 

SAP K17777 

JMP NXTST 

IS? LLPEG 

IS? WC16 

JMP RCLOOP 

IS? WC12B 

JMP RCNTR 

LAC MP4T 

RCP 

SNL 

JMP .-^y, 

IS? WC?56 

JMP RCNTA*? 

LAC WORK? 

CMA 

HAC WORK? 

JMP RCMTA 

.EJECT 



/RrSTORE PATTERN GEN 



/-26 DECIMAL 



/SAVE FOR COMPARE 



/COMPARE 
/OK 



/DONE READING? 



/YES 

/INCR. ADR 
/16 WORDS? 
/NO, 



usEy9 



9 PAGE 


1^2 








^^^z^? 


0PI0M0P 


ADJUST 


(^ 




ti^313 


i?:^6313 




LAC 


, 


k!)r314 


5C^7'^56 




ANii 


KIMK 


^f■z^b 


740?t^('^ 




S«'A 




11 c 3 1 6 


6(^632? 




JMP 


lILAOj 


^t3\7 


2(17S56 




LAf^ 


Kl^^K 


^1 Z?td 


04730?! 




DAC 


LLi^EG 


f^<^3?l 


6?63l? 


/ 
MLADJ 


JMP» AOJUST 


^^3?2 


2PI7'>4S 


1 AT 


K4'^0 


^)^3?3 


04730t>l 




riAH 


LL^EG 


H^3?4 


62631? 


/ 

NXTST 


JMP» AHJUST 


0^3?5 


207632 


LAC 


WO^Kj 


0^3?6 


247^61 




XOP 


K6f^0K 


H^3?7 


741201^ 




SNA 




^1^330 


606363 




JMP 


CKLOOP 


B^33l 


446332 




IS? 


.+1 


H<^332 


207301 


mexpat 


LAC 


KPAT 


^1^333 


04730S 




nAC 


MPAT 


H^334 


207632 




1 AC 


WO^Kl 


i^'^335 


347*160 




TAD 


K2^0K 


^X'336 


047632 




PAC 


WOf?Kl 


M^337 


606171 




JMP 


LOAD-1 








.EJECT 



/SA = 010000 FOR PATTERN 



/SA = 400 FOR PATTERN 



HASE 


X9 PAGE 


103 


1 1 ft 








0^340 


047634 




0^341 


507317 




0^342 


740200 




06 343 


740001 




0f344 


507317 




0^345 


741700 




0^^346 


606270 




06347 


207300 




063'50 


740040 




06351 


207307 




06392 


740040 




06353 


207634 




063«54 


740040 




063'55 


750004 




06356 


740001 




06357 


047317 




06360 


207633 




06361 


740040 




06362 


606055 




06363 


750004 




Mf364 


742010 




06365 


740010 




06366 


741100 




06367 


606154 




06370 


447634 




06371 


606154 




06372 


70000? 




06373 


750004 




06374 


507557 




06375 


741200 




H6376 


606406 




06377 


760?07 




06400 


107211 




146401 


750004 




06402 


740010 




06403 


741100 




06404 


107251 




06405 


600070 



/BASIC MEMORY CHFCKERBOARO ERROR ROUTINE, 



frror 


OAC W0RK3 




AND BITSUP 




Si?A 




CMA 




AND BITSUP 




SNA 




JMP RDWTN 




LAC LLREG 


F642 


HLT^ 




LAC PATWD 


GOATA 


HLT 




LAC W0RK3 


HOATA 


HLT 




LAS 




CMA 




OAC BITSUP 




LAC W0RK2 


PATT 


HLT 




JMP E641*3 


/ 




CKLOOP 


LAS 




RTL 




RAL 




SPA 




JMP CHKBRD 




IS? W0RK3 




JMP CHKBRD 




I OF 




LAS 




ANO K20K 




SNA 




JMP FNTST 




LAW ?07 




JMS TLSSF 




LAS 




RAL 




SPA 




JMS PIMOT 




JMP SEOUEN 




.EOT 



/DISPLAY ADDRESS 

/GOOD DATA 
/BAD DATA 
/SUPPRESS HERE 

/PATTERN CONTROL WORD 
/START OVER 



/LOOP ON MEMORY TEST 
/CHECK DONE LOOPING 
/LOOP 



/CHECK ACS 4 FOR 
/INHIBIT RELOCATION 

/RFLOCATF 

/BFLL FOR ONE PASS 



/CHECK FOR PI INHIBITED 
/INHIBITED' 

/START OVER IN THIS 4K 



HA^ey? PACE 104 







/pnp-9 

/ 

/ROUTIf 

/ 

FNTST 


BASIC EXERCISER • 


• TAPF 7 






sit FOR PROCRAM RELOCATION 


lAhATit 


70000? 


lOF 




/PI OFF DURING RFLOCATlQN 


\A<'A,?i7 


770023 




LAW 


-7755 




/it 410 


047313 




OAC 


wocnt 




i^"^411 


206411 




LAC 


, 




^1*^412 


507556 




AND 


Klf^K 




k1^413 


740900 




SiA 




/SEE IF IN LO OR HI 4K 


k<^414 


606510 




JMP 


MVRK 


/HI 4K 


M6415 


740001 




CMA 






0^416 


047633 




OAT 


WORK? 


/SOURCE ADDRESS 


k5^4l7 


207320 




LAC 


K7777 


/QFST'N ADR, TO HI 4K 


0^4?0 


047634 




OAC 


W0RK3 




H^4?l 


207633 


MOVE 


LAC 


WORK? 




H^4?2 


047315 




DAC 


MOVES 




k»'^4?3 


207634 




LAC 


W0RK3 




tfl(^4?4 


047316 




DAC 


MOVED 




a^4?5 


447316 




IS? 


MOVED 




0^4?6 


167316 




n£M» MOVFD 


/CLEAR OFST'N TO 0'S 


0^4?7 


447313 




IS? 


WOCNT 




H^430 


606425 




JMP 


.-3 




06431 


207634 




LAC 


W0RK3 




06432 


047316 




HAT 


MOVED 


/RESTORE DEST'N S.A, 


06433 


44731S 


RFROM 


IS? 


MOVES 




06434 


227315 




LAC» MOVES 


/SOURCE ADR. 


06435 


047634 




HAC 


W0RK3 


/SAVE INSTRUCTION 


06436 


50756? 




AND 


K7'^0K 




06437 


24756? 




yOR 


K7f<0K 




06440 


740200 




Si?A 




/OPERATE INST, IF 


06441 


60651R 




JMP 


MRINS 


/MEMORY RLE 


06442 


207634 




LAC 


W0PK3 




06443 


447316 


MVRTM 


IS? 


MOVED 




06444 


067316 




DAC* MOVED 


/STORE IN OPPOSITE 4K 


06445 


547275 




SAD 


LIMITA 


/DONE WITH INST. IF EQUAL 


06446 


741000 




SKP 




/MOVE CONSTANT TABLES 


06447 


606 4 33 




JMP 


RF«OM 


/MOVE ANOTHER INST. 


064S0 


147634 




nzM 


W0"K3 




06451 


447.'^1'^ 


MVnST 


IS? 


MOVES 




06452 


22731S 




LAP* MOVES 


/SOURCE 


06453 


447316 




IS? 


MOVED 




06454 


067316 




DAC* MflVFD 


/DEST'N 


06455 


547275 




SAO 


LIMITA 


/DONE MOVING IF EQUAL 


06456 


741000 




SKP 




/DONE 


06457 


6064'5l 




JMP 


MVnST 


/MOVr ANOTHER CONSTANT 








.EJECT 





HASEX9 



t tt t 



9 PAGE 


105 


tff460 


204541 


ifAf^X 


247556 


0^462 


054541 


0^463 


204376 


06464 


247556 


06465 


054376 


06466 


207327 


06467 


247556 


06470 


057327 


06471 


207326 


06472 


247556 


06473 


057326 


06474 


750004 


06475 


740010 


06476 


741100 


06477 


107?51 



LAC K1W000 




yOR K10K 




DkC Kl(^000*10000 




LAC E5M + 6 




XOR K1«K 




OAC E:534*6*10000 




LAC TTIN 




XOR KIPIK 




OAC TTIN*10000 




LAC TTnUT 


- 


XOR KIPIK 




DAC TTnUT*10000 




LAS 


/LOWFR 


RAL 




SPA 


/CHECK FOR INHIBIT 


JMS PINOT 


/INHIBITED 



PI 



.EJECT 



hA^EVQ 



9 PAGE 


1(^6 


H^'5pt0 


206*i0W 


H^'5PI1 


5PI7S56 


H^5fi2 


740?0Pi 


lr165PI3 


741000 


H^5PI4 


d??.-^!! 


H^SPI5 


760P07 


H(^5PI6 


107?11 


01^507 


627:^10 



0^512 
0^513 
06514 



0^515 
0^516 
06517 
06 520 
06521 
06522 
V16523 
06524 
06525 

06526 
06527 
06530 
06531 
06532 

06533 
06534 
06 535 



777777 

047A34 

207320 
047315 

606423 



147313 
207634 
507320 
047633 
207313 
547542 
606530 
547633 
606442 

447313 

606^21 
207556 
247634 
606443 

047643 
047644 
606536 



RGNAGN LAC , 

AND KltPlK 

S2A 

SKP 

JMP» BT.NHI 

LAW 207 

JMS TlSSF 

JMP» Br.NLO 
/ 

/SFTDP Tn MOVE TO LOW 4K 
/ 
MVI 



/see which 4k 
/staRT over in hi 4K 

/RELL 



/STaRT in LOW 4K 



'PK 



/ 

/ 

/A 

/A 

/ 

Mr 



LAW 17777 
DAC W0RK3 
LAC K7777 
nAC MOVES 
JMP MOVE+2 



nJlJST MEHOHY RfF. INSTRUc 
HR. PORTlONsANY AOR, FROM 



INS 



/ 

SAV3 
SAV5 
SAV6 



D2M WPCNT 
LAC W0RK3 
AND K7777 
OAC W0RK2 
LAC WDCNT 
SAO K2? 
JMP .t^ 
SAP W0PK2 
JMP MVRTN-1 

IS? wncNT 

JMP ,-<S 

LAC Kl'IK 

XOR W0WK3 

JMP MVRTN 

OAC SAVAC 
OAC RJMP 
JMP SRVINT 
.EJECT 



/DEST'N 
/SOUPCF 
/MOVE PROGRAM 



TioNS, no NOT adjijst if 

TO 21, 

/ADr. COMPARE WORD 
/INST. TO BE MODIFIEn 
/CLEAR BITS 0-5 
/SAVE 

/DONE IF EOUAL TO 22 

/COMPARE 

/AOR. IS SOME REG. FROM n 

/TO 21, HOVE WITHOUT ADJUSTING 

/ADR. COUNT+l 

/10000 

/ADJUST INST. RY 10000 

/MOVE 

/THESE ARE MOOIFIEO FOR 
/RELOCATION 



'USEX9 PAGE 107 
t tt t 



/SFRVICE ALL INTFRRUPTS 



0^536 


7Pt0001 


la^537 


741000 


06540 


606575 


06541 


700314 


06542 


741100 


06543 


740040 


06544 


207631 


06545 


740010 


06546 


741100 


06547 


606636 


06550 


700314 


06551 


50732? 


06552 


740200 


06553 


10714? 


06554 


7001 01 


06555 


741000 


06556 


606776 


06557 


700201 


06560 


60656? 


06561 


626763 



06562 


744000 


06563 


207644 


06564 


741100 


06565 


74400? 


06566 


50760? 


06567 


546574 


06570 


740040 


06571 


207643 


06572 


70004? 


06573 


627644 


06574 


00657? 


06575 


200007 


06576 


547540 


06577 


741000 


06600 


606575 


06601 


700004 


06602 


106621 


06603 


606562 



SRVINT 



F643 



CLSF 

SKP 

JMP CLKINT 

lORS 

SPA 

HALT 

LAC WORK 

RAL 

SPA 

JMP TTYINT 

lORS 

ANn K1400 

S2A 

JMS RNFLG 

RSF 

SKP 

JMP READA 

PSF 

JMP RTNIT 

JMP» GOPNCH 



/CWECK FOR PI FROM CLOCK 
/SOME OTHER DEVICE 



/STATUS WORD BIT MUST r « 
/ERROR. BIT SET. PI OFF 



/SFE IF TTY IN USE AT TIME 

/OF PI 

/CONTINUE PRINTING 

/I/O STATUS WORD 

/CHECK FOR NO TAPE FLAGS 
/EITHER READER OP PUNCH NO TAPE 
/CHECK FOR PI FROM READER 

/READ MORE 
/CHECK PUNCH PI 
/SOME OTHER DEVICE 
/PUNCH MORE 



/SETUP TO RETURN TO INSTRUCTION TEST 

/ 

HTNIT CLL 

LAC RJMP 

SPA 

STL 

AND K17S 

SAD ILINT 

HALT 



/C(0) AT PI 
/CHECK LINK 
/RESTORE LINK 



F644 



PION 

/ 

ILINT 
/ 
CLKINT 



LAC SAVAC 

ION 

JMP» RJMP 

PION 

LAC 7 

SAD Kl'^iB 

SKP 

JMP .--^ 

CLOF 

JMS CLKSET 

JMP RTNIT 

.EJECT 



/ERROR. PI OCCURRED AFTER LAC SAVAC 

/INSTEAD OF JMP • RJMP. 

/AC AT TIME OF PI 

/PI DN 

/CONTENTS OF (0) AFTER PI 



/LFT CLOCK CONTINUE FOR 1/2 SEC 



/RESFT CLOCK TO RANDOM VALUE 
/RETURN TO INST, TEST 



IUSEX9 PAGE 1(18 

1 1 1 1 







/SETUP 

/ 

SETCLK 


CLOCK VALUES 






^^^6PI4 


000000 









H6605 


10610? 




JMS GENRAN 


/GET , 


A NO. FOR CLOCK 


VifbVtb 


047313 




DAC WOCNT 


/SAVF 




H^6PI7 


50 7324 




ANin K777 


/MAX. 


TIME s 9 SECS» 


0(^610 


047313 




DAC WOCNT 


/SAVF 




0<'6ll 


347325 




TAD Mlf7 


/MIN. 


TIME s 2 SEC. 


V^tt\2 


741100 




SPA 


/POS.i 


?? SECS. OR MORE 


H^613 


60660S 




JMP SETCLK+1 


/NEG ■ 


= LESS THAN 2 SEC, 


H^614 


207313 




LAC WOCNT 






06615 


740001 




CMA 






06616 


040007 




OAC 7 


/PUT ' 


»/ALUE IN (7> 


06617 


700044 




CLON 


/CLOCK ON 


066P0 


626604 


/ 

HLKSET 


JMP» SFTCLK 


/EXIT 




066?1 


000000 


PI 






06622 


106133 




JMS RANGEN 




/GET A NO. FOR CLOCK 


06623 


04 7313 




DAC WOCNT 


/SAVF 




06624 


507324 




AND K777 


/MAX. 


TIME s 9 SECS, 


06625 


047313 




DAC WOCNT 


/SAVF 




06626 


34732'' 




TAD H167 


/MIN. 


TIME s 2 SECS. 


06627 


741100 




SPA 


/POS. 


= 2 SECS. OR MORE 


06630 


606622 




JMP CLKSFT+1 


/NEG. 


* LESS THAN 2 SECS. 


06 631 


207313 




LAC WOCNT 






06632 


740001 




CMA 






06633 


040007 




DAC 7 


/PUT ^ 


/ALUE IN (7) 


06634 


700044 




CLDN 


/CLOCK ON 


06635 


626621 




JMP» CLKSET 
.EJECT 


/EXIT 





HASEX9 PAGE 


109 


tt 1 1 




«f636 


207326 


Vif>6^7 


546701 


0^640 


606657 


H^641 


207631 


Hf>642 


507531 


Hft643 


247560 


0^644 


047631 


0^645 


700101 


0^646 


741000 


06647 


740040 


06650 


700201 


0(S6«;i 


741000 


06652 


740040 


06653 


44732^^ 


06654 


227326 


06655 


700406 


06656 


60656? 


06657 


147631 


06660 


147330 


06661 


147331 


06662 


70040? 


06663 


750004 


06664 


507544 


06665 


741?00 


06666 


606671 


06667 


700104 


06670 


60656? 


06671 


206763 


06672 


741?00 


06673 


60670? 


06674 


700104 


06675 


6?6763 


06676 


007360 


06677 


007444 


06700 


007444 


06701 


007530 



/SFTUP FOR RFAO, PUNCH, OR PRINT 



TTYINT 


LAC TTOUT 




SAD FNnOUT 




JMP PRFADY 




LAC WORK 




ANin K0 




XOR K2M0K 




OAC WORK 




RSF 




SKP 


F645 


HALT 




PSF 




SKP 


F646 


HALT 




IS? TTOUT 




LAC# TTOUT 




TLS 


/ 

PRFAOY 


JMP RTNIT 


Din WORK 




nZM CNTA 




D^M CNTB 




TCF 




LAS 




AND KIK 




SNA 




JMP .♦S 




RSA 




JMP RTNIT 




LAC GOPNCH 




SNA 




JMP PNSTRT 




RSA 


/ 

OATARL 


JMP» GOPNCH 


TTRUFA-1 


FNOBIN 


TTRUFA+63 


OUTTOP 


TTRUF8-1 


FNDOUT 


TTRUF8*63 




.EJECT 



/IF FQUAL GO PUNCH AND READ 



/ERROR, READ FLAG UP 



/ERROR. PUNCH FLAG UP 
/TTOUT s CHAR. BIN POINTER 
/GET CHAR, FROM TTY RIN 
/PRINT ONE CHARACTER 
/RETURN TO INST, TEST 



/CLEAR TTY FLAG 



/TEST ACS 8 A 1 

/SELECT READER 
/RETURN TO INST, TEST 

/0»1ST TIME THRU 
/START SEQUENCE 
/SELECT READER 
/CONTINUE SEQUENCE 



HASEX9 PAGE 110 
r T 1 1 







/PUNCH DATA 

/ 

PNSTRT JMS 




H<-7(^2 


10724? 


CRLF 


0f7Pt3 


700402 


TCP 




067PI4 


750004 


LAS 




067PI5 


507547 


AND 


K3K 


l^^7Pi6 


741200 


SNA 




H67P17 


606712 


JMP 


.♦3 


H^7t0 


700202 


PCF 




k)67ll 


606562 


vIMP 


RTNIT 


0^712 


750000 


CLA 




H6713 


700104 


RSA 




k)^7l4 


106763 


JMS 


GOPNCH 


H^715 


207334 


LAH 


K3'^0 


0^716 


047336 


RAH 


STORE 


06717 


447336 


PNXT IS? 


STORE 


0f7?0 


207336 


LAC 


STORE 


067P1 


106763 


JMS 


GOPNCH 


0^7?2 


207337 


LAC 


SPCE 


0^7?3 


106763 


JMS 


GOPNCH 


H^7?4 


207336 


LAC 


STORE 


0f7?5 


547340 


SAO 


K332 


0^726 


741000 


SKP 




0^727 


606717 


JMP 


PNXT 


06730 


207332 


LAC 


K257 


06731 


047336 


nAC 


STORE 


06732 


447336 


PNXTA IS? 


STORE 


06733 


207336 


LAC 


STORE 


0^734 


106763 


JMS 


GOPNCH 


06735 


207337 


LAC 


SPCE 


0^736 


106763 


JMS 


GOPNCH 


06737 


207336 


LAC 


STORE 


06740 


547333 


SAO 


K271 


06741 


741(^00 


SKP 




06742 


606732 


JMP 


pnvTa 


06743 


207341 


LAC 


KCf^LF 


06744 


047336 


DAC 


STORE 


06745 


106763 


JMS 


GQPNCH 


06746 


207336 


LAC 


STORE 


06747 


107233 


JMS 


R0TAT9 


06750 


106763 


JMS 


GOPNCH 


06751 


77777PI 


LAW 


.1,;^ 


06752 


047336 


nAC 


STORE 


06753 


750001 


CLA! 


;CM& 


06754 


700010 


700010 


06755 


740200 


S^A 




06756 


740040 


P647 HALT 


06757 


106763 


JMS 


GOPNCH 


06760 


44733<S 


IS? 


STORE 


06761 


606753 


JMP 


.-6 


06762 


606715 


JMP 


PNyT-2 



/CR,LF 

/CLEAR TTY FLAG 

/MASK ACS 7 AND 8 

/IE EITHER IS A 1, DON'T PUNCH 

/PUNCH DATA 

/CLEAR PUNCH FLAG. NO MORE 

/PPS FROM PUNCH SHOULD OCCUR, 

/RETURN TO |NST, TEST 

/SELECT READER AND PUNCH 
/TO INITIATE SEQUENCE 



/PUNCH CHAR. IN AC 10-17 

/(SPcE)s?40 

/PUNCH SPACE 

/DONE WITH ALPHABET IF EOUAL 

/PUNCH MORE CHARS, 



/(KCRLF)sCR,LF 

/PUNCH CR 

/ROTATE 9 RIGHT 
/PUNCH LF 



/AC = 777777 

/CLEAR AC WITH MB 14 

/ERROR. EVENT TIME 1 DIDN'T 
/CLEAR AC, 
/PUNCH 8 FRAMES OF 0'S 



/START NEW LINE 



^ASE)t9 



PACE 111 



.EJEHT 



•USEX9 



9 PAHE 


112 








HC 7^3 


000000 


nOPNCH 







\Af-7h4 


700204 




PSA 




H67ft5 


750004 




LAS 




H^766 


507B50 




AND 


K4K 


^Hf,l 


740200 




S.!a 




0^770 


606562 




JMP 


RTNiT 


0f771 


44733(^ 




IS? 


CnTA 


0^772 


207331 




LAC 


CNTB 


06773 


740200 




S2A 




06774 


607031 




JMP 


SUPl 


06775 


60656? 




JMP 


RTNIT 






/RFAn 1 

/ 

READA 


PUNCHED 


INEO 


06776 


750004 


LAS 




06777 


507547 




AND 


K3K 


070(50 


740200 




S2A 




070(^1 


607113 




JMP 


REAOP 


07002 


750004 




LAS 




07003 


507550 




AND 


K4K 


07004 


741200 




SNA 




0700'5 


607010 




JMP 


.♦3 


07006 


700112 




RRH 




07007 


606562 




JMP 


RTNIT 


07010 


700112 




RHR 




07011 


740200 




S£A 




07012 


607017 




JMP 


?RnNOT 


07013 


207330 




LAC 


CNTA 


07014 


740200 




SHA 




07015 


607031 




JMP 


SUPl 


07016 


607027 




JMP 


TAHDl 


07017 


447327 


?RnNnT 


IS? 


TTIN 


07020 


067327 




HAH* TTIN 


07021 


207327 




LAC 


TTIN 


07022 


546677 




SAP 


FNOelN 


07023 


607037 




JMP 


SETTY 


07024 


207330 




LAC 


CNTA 


07025 


740?0Pt 




SZA 




07026 


607031 


/ 

TAPDl 


JMP 


.♦3 


07027 


447331 


IS? 


CNTB 


07030 


606562 




JMP 


RTMIT 


07031 


777777 


SUPl 


LAW 


^1 


07032 


347330 




TAD 


CNTA 


07033 


047330 




DAT 


CNTA 


07034 


147331 




n^M 


CNTB 


07035 


700104 




RSA 




07036 


606562 




JMP 


RTNIT 



/MASK ACS 6 

/IF A 1» DON'T USE CNTa OR CNTr 
/RETURN TO INST, TEST 
/CnTA=PUnCH SELECTED 

/0«WAIT FOR PI 
/1«SFLFCT READER AGAIN 
/RETURN TO INST. TEST 



/MASK ACS 7 AND 8 

/IF EITHER IS A 1, READ FULL SPEED 



/MASK ACS 6 

/IF A 1, CLEAR READER FLAG, NO 

/MORE PI 'S FROM READER 

/CLEAR READER FLAG 
/RETURN TO INST, TEST AND 
/WAIT FOR PUNCH PI 
/READ ONE 
/0*Nn DATA IN READER YET 

/SEE IF PUNCH IS SELECTED 

/YES. SUBTRACT FROM CNTA 

/READER SELECTED 

/STORE CHAR. IN TTY BIN 



/CHECK FOR 52 CHARACTERS STORED 
/DONE. SETUP TO PRINT 



/RETURN TO INST. TEST 
/(CNTA)-l 

/RETURN TO INST, TEST 



.EJECT 



)USEX9 



1 1 r t 



9 PACe 


113 


07037 


700?01 


07040 


607037 


07041 


700P0? 


07042 


70040? 


07043 


20731? 


07044 


547537 


07045 


607070 


07046 


44731? 


07047 


206676 


07050 


047327 


07051 


206700 


07052 


047326 


07053 


447327 


07054 


227327 


07055 


447326 


07056 


067326 


07057 


207326 


07060 


546701 


07061 


741000 


07062 


607053 


070ft3 


206676 


07064 


047327 


07065 


206700 


07066 


047326 


07067 


606641 


07070 


206763 


07071 


54711? 


07072 


741000 


07073 


607047 


07074 


14731? 


07075 


77777? 


07076 


047336 


07077 


777777 


07100 


700010 


07101 


740?00 


07102 


740040 


07103 ' 


700?04 


07104 


700?01 


07105 


607104 


07106 


447336 


07107 


607077 


07110 


700P0? 


07111 


607047 



07112 



006760 



SETTY 



XFRl 



/ 

PUN6 



F648 



/ 

K647 

/ 



psr 

JMP .-1 
PCF 
TCF 

LAC BRFAK 
SAD K1?A 
JMP PUN6 
\SI BREAK 
LAC DATABL 
DAT TTIN 
LAC OUTTOP 
DAC TTOUT 
IS? TTIN 
LAC» TTiN 
Is? TT^UT 
OAC* TTOUT 
LAC TTOUT 
SAD FNOOUT 
SKP 

JMP XFWl 
LAC OATABL 
DAC TTIN 
LAC nUTTOP 
nAC TTnUT 
JMP TTYINT+3 



/WAIT FOR PUNCH 

/CLEAR PUNCH FLAG 
/CLEAR TTY FLAG 



/RFSTORE INPUT/OUTPUT POINTERS 
/REARER TO BIN 

/BIN TO TTY 

/TRANSFER BUFFER A TO BUFFER B 



/DONE IF EQUAL TD TTBUFB*6: 

/TRANSFER ANOTHER 

/RESTORE BUFFER POINTERS 

/TTBUFB-1 

/BEGIN PRINTING 



LAC 
SAn 
SKP 
JMP 
n2H 
LAW 
PAC 
LAW 
700 
S2A 
HAL 
PSA 
PSF 
JMP 
IS? 
JMP 
PCF 
JMP 



GOPNCH 

K647 /PUNCH 0'S ONLY AT END OF BLOCK 

XFPl-4 /(GOPNCH) N0T«E647*2 

RRFAK 
-6 

STORE /FRAME COUNTER 
-1 /ACS777777 

010 /CLEAR AC WITH BIT 14 

T /ERROR. MB14 DIDN'T CLEAR AC 

/PUNCH BLANK FRAME 

.-1 

STORE 

E648-3 



XFRl-4 



/CLEAR PUNCH FLAG 
/SETUP TO PRINT 



E647+2 

.EJECT 



r<ASEX9 PATE 114 
tt ft 



^7113 
kl7ll4 
H7115 
H7116 
07117 
*171?0 
07l?l 
k^7l?2 
071?3 
«7i?4 
H7l?5 
07l?6 

B7130 
«7131 
H7l?2 

1*7133 
H7134 
M7135 
H7136 
07137 
07140 
07141 



07142 
07143 
07144 
07145 
07146 
07147 
071^0 
«71'51 
07152 
071^^3 

07154 
07155 
07156 
07157 
07160 
«7161 
07162 
07163 
1^7164 
07165 
07166 
07167 
07170 



750004 
5PI755«« 
741200 
607121 
70011? 
60656? 
70011? 
74l?00 
6071 31 
447327 
067327 
207327 
546677 
607133 
7001 04 
60656? 

206676 
047327 
750004 
507551 
740200 
607131 
607(^4? 



000000 
507544 
740200 
60715? 
760320 
24734? 
04735? 
607154 
76032? 
607147 

207351 
047313 
10724? 
447313 
227313 
741200 
607167 
107211 
107?3v3 
107211 
607157 
107?4? 
627142 



/RFAne 

/BY AC 

/ 

REAOR 



ROUTINE IS USED ONLY WHEN PUNCH IS INHIBITEH 
S 7 nw 8, OR BOTH, READER RUNS AT FULL SPEED. 



K4K 



♦ 3 



LAS 

AND 

SNA 

JMP 

RRP 

JMP RTNIT 

RRP 

SNA 

JMP SELECT 

IS? TTIN 

nAC» TTIN 

LAC TTIN 

FNnelN 

,♦3 



SELECT 
/ 



SAD 
JMP 
RSA 
JMP 



LAC 
DAC 
LAS 
AND 
S£A 
JMP 
JMP 



RTNIT 

OATABL 
TTIN 

K6K 

SELECT 
SETTY*3 



/SERVICE. NO TAPE CONDITIONS 

/ 

RNFLG 

AND KlK 

SZA 

JMP .♦=; 

LAW 32^^ 

XOP K5?0K 

DAC MTFLG+1 

JMP nUTFLG 

LAW 3 2? 

JMP .-4 

LAC NTFLG 
DAC WDCNT 
JMS CRLF 
IS? WDCNT 
LAC» wnCNT 
SNA 

JMP CLRFLG 
JMS TLSSF 
JMS RUTAT9 
JMS TLSSF 
JMP OUTFLG+3 
JMS CRLF 
JMP# RNFLG 



/ 
OUTFLG 



/MASK ACS 6 

/IF A 1, DONiT READ 

/CLEAR READER FLAG 
/RETURN TO INST, TEST 
/GET CHAR. FROM BUFFER. 
/0 = NO DATA IN READER YET. 

/SELECT READER AGAIN 
/BUFFER POINTER +1 
/STORE CHAR. IN TTRUFA 

/CHECK FOR 5? CHARS. STORED 
/TTBUFA IS FULL 
/SELECT READER 
/RETURN TO INST, TEST 



/RESTORE TTBUFA POINTER 

/MASK ACS 6 AND 7 

/IF EITHER A 1, DON'T PRINT 

/SELECT READER AGAIN 
/SETUP TO PRINT 



/CHECK FOR READER NO TAPE 

/READER 
/PUNCH NO TAPE 



/PRINT R OR P NO TAPE 
/READER NO TAPE 



/CR.LF 



CLRFLG 



/CR.LF 

/RETURN TO SEQUENCE 



HASEX9 



PAGE 115 



.tJECT 



HASEX9 PAGE 


116 


» 1 1 1 




H7171 


»00(3()CI 


k17l72 


77744f' 


1^7173 


047313 


1^7174 


750^00 


07175 


700204 


H717<S 


700201 


k)7l77 


60717(S 


vJ72P»P» 


44 7313 


072P1 


607175 


k)72Pl? 


627171 


1^172^3 


000fl00 


H72f'4 


777777 


M72f5 


700204 


H72PI6 


700201 


072f^7 


607206 


137210 


627203 



/PlINHH 


LFAOEP 




/ 






PNLEHR 


PI 






LAW 


-340 




OAr 


WDCNT 




CLA 






PSA 






psr 






JMP 


.-1 




!S? 


WDHNT 




JMP 


.-4 




JMP« 


PNLEOR 


/ 






PNMARK 


t^ 






LAW 


-1 




PSA 






PSF 






JMP 


.-1 




JMP» 


PNMARK 




.EJECT 



/EXIT 



tiASEX9 PARE 117 
1 1 ft 



07211 


000000 


07212 


047316 


07213 


207631 


07214 


740010 


07215 


740100 


07216 


607221 


07217 


700401 


07220 


607217 


07221 


207316 


07222 


700406 


07223 


700401 


07224 


607223 


07225 


207631 


07226 


740010 


07227 


740100 


07230 


70040? 


07231 


207316 


07232 


627211 


07233 


000000 


07234 


742020 


07235 


742020 


07236 


742020 


07237 


742020 


07240 


740020 


07241 


627233 



07242 


000000 


07243 


760215 


07244 


107211 


07245 


547247 


07246 


627242 


07247 


76021? 


07250 


607244 



/PRINT 


A CHARACTFR 


/ 






TLSSr 









OAC 


MOVED 




LAC 


WORK 




RAL 






SMA 






JMP 


.♦3 




TSF 






JMP 


.-1 




LAC 


MOVED 




TLS 






TSF 






JMP 


.-1 




LAC 


WORK 




RAL 






SMA 






TCF 






LAC 


MOVED 




JMP« 


► TLSSF 


/ 






/ROTATE 


9 RIGHT 


/ 






R0TAT9 



RTR! 





/CHECK TTY FLAG 



/WAIT FOR FLAG 



/CLEAR TTy if RIT l r 



RTR} 



RTR: 



RAR 



RTR 



JMP» 



R0TAT9 
/ 

/CARRIAGF RETURN, LINEFEED 

/ 

CRLF 

LAW ?1S 

JMS TLSSF 

SAD .♦? 

JMP» CRLF 

LAW 21? 

JMP CRLF*? 

•EJECT 



/CR 



/EXIT 
/LF 



'USEX9 PAGE 118 
1 1 1 1 



H7?S3 
V172S4 
H72«S5 
fe)7256 
M7257 
07260 
07261 
07262 
07263 
07264 
07265 
07266 
07267 
07270 
07271 
07272 
07273 

^17274 



0013000 
20763'? 
547537 
74lP'00 
627251 
147635 
157635 
207274 
040014 
10724? 
220014 
741200 
60727? 
107211 
107?3v3 
107?11 
607263 
10724? 
627251 

007343 



/PRINT 

/ 

PI NOT 


"rOMPlETE" 


PI 




lAC W0MK4 




SAO Ki?A 




SKP 




JMP» PINOT 




n^M W0RK4 




n?M WORK4+10000 




LAC COMPA 




DAC 14 




JMS CHLF 




L.AC» 14 




SNA 




JMP .♦5 




JMS TLSSr 




JMS P0TAT9 




JMS TL'^SF 




JMP .-6 




JMS CRLF 




JMP* PINOT 


/ 




COMPA 


COMP 




.EJECT 



/PASS COUNTER 

/PRINT IF EQUAL TO i0 

/START PROGRAM 



/PRINT COMPLFTF 

/nONF PRINTING IF 

/PRINT I CHAR 

/PRINT 2ND 
/GET NEXT PAIR 
/CR. LF 



♦ ♦♦♦ 



/CONSTANT TABLf FOR nHfCKERHOAHn AND PI 
/SFHVirt ROUTINES 



P7aT« 


7^?^?% 


*y9ih 


• WflKMlP 


*»>y77 


MflllWfll^ 


lA^v^t^H 


MHifHP 


^ty^i 


yiS77»W 


*^ji»? 


748lP7ft 


prSPS 


•577«t 


*y^f* 


74»077 


^y^f^ 


j(l.^77gl|» 


*'tM^t 


*im^»if 


«»7v^*»7 


iPti^^p 


*'*S\\^ 


«»«l*7fi 


Ji-*M\ 


gl1«l(*7P 


^"»xM2 


tl0tfl<V«P 


^'»i\.% 


(AP^^iKI* 


«*"»3M 


77777f 


*»>31^ 


^^MOtlP 


^isyh 


^I^Vlk^^l< 


^7A\ 7 


777777 


i^y.\?$ 


l^07'7? 


««'»3?l 


liP^t^k^^ 


*"•.!?? 


^i^l4|«t* 


^'*^?i 


%|l«IO«i« 


»'-.^?4 


i^*^-'^? 


*'*^7'i 


»77fU 


i^»3?6 


kl9^»^«e 


»»'5?7 


«»P«lk««l^ 


o'A.^i 


0l^«(*«r 


•*''JJi 


«»^0iP 


»'"??? 


^P*<.>^7 


0'v<?3 


k>PP?7t 


»»'A?4 


ta«^5A^ 


t''Jx^5 


^^^^^•i 


^"•«536 


iip^i^ji? 


»»''337 


^^0?4P 


t''.<4^ 


^^e.M? 


%»"3«l 


^l??!*^ 


t»'34? 


•)?^»*i^«* 



I IMITA 

WCIPM 

I LHk.r. 

KPAT 



MPAT 
PATH 
»'ATwn 

MCNHI 
HHfAK 
WDPNT 
WC^»>^ 
HOVkS 

MITSI'P 
K7'»77 

Kl4l«VS 

K777 

M167 

TTOUT 

TTIN 

CNTA 

TNTH 

K,»»>7 

K?7i 

?TOHr 

sprt 



7'i?5?9 

^3770H 
74^«7A 
«377t«l 
74BB77 

PI377P'H 

SEOUFN 

SEOUFN+l^MPH 

(« 

l» 

777776 

11 

(^ 

7/7777 

7777 

14i»0 

777 
777611 

l< 

?57 

?71 

p» 

?40 
.EJETT 



/nniMITFR 



USEXS PAGE 1?0 

t 1 1 1 



K17343 


007.-^43 


H7344 


317303 


07345 


320315 


07346 


305314 


07347 


305324 


07350 


000000 



07351 


007351 


07352 


000000 


07353 


317316 


07354 


324240 


07355 


320301 


07356 


240305 


07357 


207207 


073ft0 


000000 


07361 




07445 





/PRINT ROUTINE CONSTANTS 

/•TOMPLLTF." 

/ 

CO^iP 

;U7303J 320315J 



305314; 305324J 



/R OR P 


MO TAPE 






/ 








MTFLr, 











317316J 




324240; 




240305; 




207207 











/ 








/TTY BIN 








/ 








TTRUFA 


.BLOCK 


64 




/ 








TTRUFB 


.BLOCK 
.EJECT 


64 





320301 



/READER BUF « 52 LOGS. (OECIMAL) 
/TTY BUF = 52 LOGS. ( OECIHAL) 



HASEX9 



PAGE 121 



1 1 1 1 







/CONSTANT 

/ 

K0 


AND ERROR TABLES. 


07531 


000000 





07532 


000001 


Kl 


1 


07533 


00000? 


K2 


2 


07534 


000004 


K4 


4 


07535 


000010 


KlPI 


10 


07536 


000011 


K11 


11 


07537 


000012 


t^l2A 


12 


07540 


000040 


K1M0 


40 


07541 


000020 


K20 


20 


07542 


000022 


K2? 


22 


07543 


000040 


K40 


40 


07544 


001000 


KlK 


1000 


07545 


000400 


K4fi0 


400 


07546 


002000 


K2K 


?000 


07547 


003000 


K3X 


3000 


07550 


004000 


K4K 


4000 


07551 


006000 


K6K 


6000 


07552 


000200 


K2C^0 


?00 


07553 


040000 


K4(1K 


40000 


07554 


400000 


K4{10K 


400000 


07555 


40000? 


K4P)2K 


400002 


07556 


010000 


K10K 


10000 


07557 


020000 


K20K 


20000 


07560 


200000 


K2C10K 


?00000 


07561 


600000 


K600K 


600000 


07562 


700000 


K7PI0K 


700000 


07563 


002021 


K2021 


?0?1 


07564 


002120 


K2120 


21?0 


07565 


111111 


KIS 


111111 


07566 


22222? 


K2S 


222222 


07567 


333333 


K3S 


333333 


07570 


444444 


K4S 


444444 


07571 


555555 


K5S 


555555 


07572 


666666 


K6S 


666666 


07573 


777777 


K7S 


777777 


07574 


011111 


K51S 


11111 


07575 


012222 


K12S 


12222 


07576 


013333 


K13S 


13333 


07577 


014444 


K14S 


14444 


07600 


015555 


K15S 


15555 


07601 


016666 


K16S 


16666 


07602 


017777 


K17S 


17777 


07603 


002525 


K252S 


25?5 


07604 


00525? 


K5?5? 


5252 


07605 


252525 


K010 


?5?5?5 


07606 


5?5?5? 


K101 


525252 


07607 


5?5?53 


K53 


525253 


07610 


077777 


K37S 


077777 
.EJECT 



NOT MODIFIED WHEN IN HI 4K 



'USEX9 



9 PAGt 


122 


J*7611 


700042 


07612 


700002 


07613 


760002 


07614 


100002 


07615 


604002 


07616 


344002 


07617 


741000 


076?0 


750000 


07621 


777776 


07622 


777773 


07623 


777737 


07624 


777377 


07625 


773777 


07626 


737777 


07627 


377777 


I,l76?0 


000000 


07631 


000000 


07632 


00000(^ 


07633 


000000 


M7634 


000000 


07635 


000000 


07636 


000000 


07637 


000000 


07640 


000000 


07641 


740010 


07642 


740001 


07643 


000000 


07644 


000000 


07645 


420015 


07646 


777777 


07647 


120015 


07650 


740040 


07651 


620012 


076S2 


200000 


07653 


741400 


07654 


740400 


07655 


123456 


07656 


654321 


H7657 


361416 


07660 


055363 


07661 


546(^60 


07662 


243035 


07663 


76257? 


07664 


453237 


07665 


150214 


H7666 


000000 



K7y4'-^ 


700042 


K7XX2 


700002 


K76X? 


760002 


K1XX2 


100002 


K6X4? 


604002 


K344y2 


344002 


KSKP 


SKP 


KCl-A 


CLA 


Ml 


777776 


M4 


777773 


M40 


777737 


M400 


777377 


M4K 


773777 


M40K 


737777 


M400K 

/ 

HjrNT 


377777 





WORK 





WORKl 





WORK? 





W0RK3 





W0RK4 





IIADR 





AUTNOT 





TCI K 





XCTRAL 


RAL 


AUTCMA 


CMA 


SAVAC 





RJHP 


P) 


l-AWADT 


XCT» 15 


Lawful 


LAW 17777 


jmsaut 


JMS» 15 


KHALT 


740040 


JMPAliT 


JMP« 1? 


SAV4 


LAC 


KS?L 


741400 


KSML 


740400 


rancon 


123456 


RANTRL 


654321 




361416 




055363 




546060 




P43035 




76?572 




453237 




150214 



.EJECT 





BASEX9 



PAGE 123 



1 1 1 1 



/ERROR TABLES 



^Ibdl 


000000 


B7670 


000000 


I.J7671 


000000 


07672 


000000 


07673 


000000 


07674 


000000 


07675 


000000 


^7blt> 


000000 


^7611 


000000 


07700 


000000 


07701 


000000 


07702 


000000 


07703 


000000 


07704 


000000 


07705 


000000 


07706 


000000 


07707 


000000 


07710 


000000 


07711 


000000 


07712 


000000 


07713 


000000 


07714 


000000 


07715 


000000 


07716 


000000 


07717 


000000 


077P0 


000000 


07721 


000000 


07722 


000000 


077?3 


000000 


077?4 


000000 


077?5 


000000 


077?6 


000000 


077?7 


000000 


07730 


7525?5 




000000 



JMPRFT 

Jill 

J222 

J333 

J44 4 

J555 

J6<S6 

J777 

J525 

J2'>2 

nAL0 

TALi 

JSM71 

JSM7? 

JSM7^ 

JSM74 

JSM7S 

JSM7ft 

JSM77 

JS?5? 

JS52'> 

JSSS 

/ 

VCTll 

XCTl? 

XCTi:^ 

XCT17 

XCTi?5 

/ 

JST77 

JST66 

JST55 

JST44 

AUTJMP 

AUTJMS 












































752525 

.END 



/JMP 
/JMP 
/JMP 
/JMP 
/JMP 
/JMP 
/JMP 
/JMP 
/JMP 
/JMP 
/CAL 
/CAL 
/JMS 
/JMS 
/JMS 
/JMS 
/JMS 
/JMS 
/JMS 
/JMS 
/JMS 
/JMS 

/XCT 
/XCT 
/XCT 
/XCT 
/XCT 

/JMS* 
/JMS» 
/JMS* 
/JMS» 
/JMP* 
/JMS* 



22 

11111 (E509) 

12222 (r5l0) 

13333 (E5111) 

14444 (F512) 

15555 (r5l3) 

16666 (F514) 

17777 (E5t5) 

1525? (F516) 

12525 (F5l7) 

FROM 17757 FXT, LINK 

FROM 17757. LINK « 1 

FROM 07777 TO mil 

FROM 07776 TO i?222 

FROM 07775 TO 13333 

FROM 07774 TO 14444 

FROM 07773 TO 15555 

FROM 07772 TO 16666 

FROM 07771 TO 17777 

FROM 12525 TO 15252 

FROM 15252 TO 12525 

SERIES TEST (E540) 



« (E510) 

(E520) 
<E522) 
(F524) 
(F526) 
<F528) 
(F530) 
(E532) 
(E534) 
(F536) 
(F538) 



JMS. FROM mil XCT (16666) (F562) 
JMS. FROM 12222 XCT (15555) (F564) 
JMS. FROM 13333 XCT (14444) (F566) 
J.S FROM 07776 XCT (17776) (E56fl) 
JMS, FROM 12525 XCT (15252) 



07777 
16666 
15555 
14444 



(E592) 
(£594) 
(E596) 
(E«;98) 



12 (AUTO-INDEX) (E620) 
17 (AUTO-INDFX) (E633) 



HASEX9 


PAGE 124 


AB^ATS 


0?530 


ADOAf! 


015?4 


ADOAn 


H1772 


ADKOhN 


aZdZVi 


ADvJUST 


H6312 


AMUPPT 


02571 


A MR SO M 


03025 


AMINSB 


02433 


AMNSRT 


02467 


ANOAT 


01306 


ANDI 


05517 


ANEG 


03017 


APLSRT 


02454 


APLUSB 


02417 


Apns 


03016 


AURJMP 


06101 


AUTCMA 


07642 


AUTJMP 


07726 


AUTJMS 


07727 


AUTNhT 


07637 


AUTOTN 


05520 


AUTR 


05665 


AUTRFT 


06077 


AUTRfl 


05777 


AUTRJM 


06100 


►^DATA 


06354 


HEGIN 


00022 


BGNARN 


06500 


HGNHt 


07311 


HGNLO 


07310 


USETU 


03036 


■JITSDP 


07317 


•UTTSl 


03055 


•UTTS? 


03070 


HMAMRT 


02543 


BMASUM 


03024 


^MINSA 


02425 


HMNS*T 


02515 


HNEG 


03021 


'rtPOS 


03020 


BRFAK 


07312 


CAL0 


07701 


CALl 


07702 


CHKBRO 


06154 


CKLOnP 


06363 


i:klp 


03011 


t^KN'O 


06126 


CLKINT 


06575 


CLKSrT 


06621 


CLRFI G 


07167 


CNTA 


07330 


CNTB 


07331 


COMP 


07343 


COMPA 


07274 


CONCIi<G 


02767 



'^ASrX9 


PAGE 125 


CRLF 


07242 


OACAr 


03341 


DATABL 


06676 


DBRX 


00204 


DBRXX 


00207 


OBRXXX 


00215 


L)2MAr 


03222 


ENnBTN 


06677 


ENnouT 


06701 


ENHTHL 


06124 


tNTST 


06406 


KRROU 


06340 


tl 


00002 


til 3 


00644 


t.ll4 


00671 


t:ii5 


00705 


tlt6 


00721 


L140 


00747 


f:i4i 


00775 


K142 


01012 


1-143 


01027 


^:ift2 


01033 


tl63 


01037 


f-164 


01043 


tl65 


01047 


tl66 


01053 


F"167 


01057 


t 168 


01063 


H69 


01067 


tl70 


01072 


K20 6 


01103 


(•:2(?7 


01106 


H2(?)8 


01111 


t2?19 


01114 


L210 


01117 


f:2ii 


01121 


L212 


01125 


L213 


01130 


b:214 


01133 


F215 


01136 


F216 


01141 


F217 


01144 


f218 


01146 


t2l9 


01153 


r2?0 


01155 


t2?l 


01162 


t:2?2 


01164 


t2?3 


01171 


t224 


01173 


f-:2?5 


01200 


f:226 


01202 


£24 


00140 


f:25 


00144 


r2'58 


01212 


t:259 


01214 



HASE)f9 
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^2(^ 


Hf^isa 


t?fr0 


01220 


K2^1 


01222 


r-2^2 


01226 


t?ft3 


01230 


K264 


01234 


h265 


01236 


^2ft6 


01243 


t- 26 7 


01245 


h 268 


01252 


k.?69 


01254 


F27 


00154 


r2 7« 


01261 


t27l 


01263 


K2 72 


01270 


^ 273 


01301 


K2 74 


01311 


t275 


01315 
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SAV3 


06533 


SA\/5 


06534 


SA*/6 


06535 


SNVINT 


06536 


F64 3 


06543 


^T^ IT 


06562 


fc.644 


06570 


PION 


06572 


ILINT 


06574 


CLKINT 


06575 


SETCI K 


06604 


CLKSrT 


066?1 


TTYIMT 


06636 


E645 


06647 


E646 


06652 


H R E A n Y 


06657 


iJATARL 


06676 


ENOHTN 


06677 


nuTTOP 


06700 


EN'IOIIT 


06701 


PNSTRT 


06702 



^Ast y? 


PAC;F l'^6 


^'^^T 


W^71 7 


I-' N > T A 


1^^732 


1- 6'17 


i^(S7^6 


..O-'NTH 


Hft7A3 


'1- MIA 


P)fS776 


/ H ' ^ N T 


1^7^17 


1 A|'D1 


H7^?7 


SU-1 


«7H31 


.^fTTY 


147037 


%F''\ 


V17WS3 


HU^ 6 


07H7H 


K6 1B 


i171C^2 


^6 17 


lfi71^ 2 


■<'l ^OR 


^7113 


^(•:i EfT 


^7131 


-<N' LP, 


i^7142 


unri G 


M71^4 


^JL 'Fl G 


071ft7 


H M f: n K 


H7171 


"N'^ARK 


072C^3 


TL^-sr 


1*5721 1 


'<() r AT-J 


07233 


ilKLF 


H7242 


PI'-OT 


1^7251 


i: U "^ P A 


07274 


L P' I T A 


0727«3 


■iCIft 


07276 


n:i2R 


07277 


LL <F.n 


073M0 


<PAT 


7 301 


IP AT 


07305 


^ATR 


07306 


• 'A rwn 


07307 


u.;^'Ln 


07310 


•<G ^HT 


07311 


HRf AK 


07312 


■^i)i;nt 


07313 


V r: -■ S (^ 


0731 4 


■■'()./E9 


07315 


f) 'FO 


07316 


<I TSliP 


07317 


'^7 '77 


07320 


Kl •0K 


07321 


K 1-1^5 PI 


07322 


•\S"MK 


07323 


•W7 7 


07324 


^1-7 


07325 


FT' OT 


07326 


TT IN 


07327 


-fvjTA 


07330 


CNTb 


07331 


^^'^7 


07332 


K?/l 


07333 


'N :^ ■ 


07334 


f^ 3 ' 1 


07335 



'USExg 
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STiiRr 


07336 


SPHE 


07337 


K3^J> 


07340 


•^C^LF 


07341 


Kb'-^BK 


07342 


CO'^P 


07343 


NlTFLr. 


07351 


n^UFA 


07361 


TT 'UFH 


07445 


KH 


07531 


-M 


07532 


K2 


07533 


K4 


07534 


^1/ 


07535 


•^11 


07536 


^i;^A 


07537 


A 1 1 ■ H 


0754(1 


K?/ 


07541 


K?:^ 


07542 


^4' 


07543 


KIK 


07544 


K4^0 


07545 


K2K 


07546 


K3K 


07547 


r^4K 


07550 


K6K 


07551 


K?|.'0 


07552 


K4'K 


07553 


■<4''0K 


07554 


■<4 ^K' 


07555 


M^K 


07556 


K? "K 


07557 


Ki>''0K 


07560 


Aft "(IK 


07561 


K7-'0K 


07562 


^2 21 


07563 


•<212«i 


07564 


KIS 


07565 


K2^ 


07566 


K,5S 


07567 


K4> 


07570 


K^"^ 


07571 


f^6'> 


07572 


^7- 


07573 


r^51S 


07574 


K1?S 


07575 


-<! 'S 


07576 


Kits 


07577 


Kl'^S 


07600 


Kl^S 


07601 


K17S 


07602 


K?b2S 


076PI3 


K5^5? 


07604 


Kt^1 pi 


076(^5 


Kl;'l 


07606 



HASF.^*^ 


PAHL ISb 


I\ K < 


Vl7fel^7 


^>WS 


k576i(^ 


A 7 X 4 -3 


H761 1 


(V / < X ' 


117612 


^ 7 - X ? 


i^ 7 6 1 3 


A 1 ^ X ? 


\Mby 4 


A ft V 4 ? 


761b 


^ 3 M y i^ 


«7616 


aS'^P 


0761 7 


-^-L'l A 


H76;^k5 


^il 


M76?l 


■^u 


Kl76?? 


•14 ' 


M76P3 


■1 4 • 


t^76?4 


^4- 


076?^ 


-14 /K 


I(176?6 


^4 UK 


M76P7 


■<J'-NT 


H76:^ii 


^O-K 


H7631 


W(V/K1 


07632 


''IJ<K? 


H7633 


■•■0 -k:^ 


^7634 


-in'-K4 


M7635 


I I ">DP 


1^7636 


HtriNOT 


V17637 


ICI K 


0764i!l 


XCTRAL 


W7641 


'MJTCMA 


H7642 


^ A ,' A r 


7 6 4 3 


<J-P 


07644 


L A -1 A 1 1 T 


0764'3 


LA -niL 


07646 


IM'-ADT 


07647 


AM'^LT 


076S/ 


.iy.' XWJ 


076S1 


■; A V 4 


076S2 


AS/L 


076^3 


'V S '^ L 


076S4 


-' A ^ c n i\i 


076^^5 


"'A TRL 


076S6 


.)M»'«FT 


7 6 6 7 


J1U 


07 67 


J2-2 


07671 


J3,<3 


0767? 


■ 14'' 4 


7 6 7 3 


,)'>H5 


07674 


J6.'-^6 


07675 


1777 


07676 


i'i.^S 


07677 


J?-2 


077(^0 


HAI (?l 


077PI1 


CALl 


07702 


JS-71 


7 7 C^ 3 


JS^7? 


07704 


JS-73 


07705 



HA'^EXV 
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JS"74 


077(»6 


JS^7«> 


077(^7 


JSM7(S 


07710 


JS^77 


07711 


.iS^5? 


07712 


JSS2'5 


07713 


JSSS 


07714 


XCTll 


07715 


XCTl? 


07716 


<cri?? 


07717 


XCT17 


077?0 


XCTl?^ 


07721 


JST77 


07722 


JST6A 


07723 


JST5S 


077?4 


JST44 


07725 


AUTJMP 


07726 


AUTJMS 


07727 


No^^l 


7400H0 


IM0P2 


7400PI0 


N0P3 


740000 


HALT 


740040 



11. 



FLOWCHARTS 



(ZZ^—D 



T LOCATION 22 J 



PUNCH LEADER 



c 



I 



HALT 



G> 



3 



CLEAR ERROR 
TABLES v BUFFERS 



LOCATION 26 

RESTART 

PROGRAM HERE 



-^^ 



SETUP PI ROUTINE 

IN LOCATIONS 

THRU 6 



T LOCATION 70 I 
SEQUEN I 




SETCLK 



J 



RETURN FROM SETCLK 



5) 



INHIBIT INST. TEST 



^ 




BEGIN THE 
INSTRUCTION TEST 



ADO RANDOM 
PAIRS TEST 



J 



MEMORY TEST 



3 
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TEST CLEAR AC WITH 
lOT 700X10 (MB14) 



TEST DBR 



TEST OPERATE GROUP 



TEST LAC 



TEST AND 



TEST XOR 



TEST TAD 



TEST ADD 



7~i , 

fADD RANDOM ^ 
\^ PAIRS TEST J 



TEST ADDER 



TEST SAD 



TEST DZM 



TEST DAC 



TEST ISZ 



TEST JMP 




1 



TEST CAL 



TEST JMS 



TEST XCT 



TEST XCT JMS 



TEST FALSE 
AUTO-INDEXING 



TEST LAC INDIRECT 



TEST XCT JMS 
INDIRECT 
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TEST JMS INDIRECT 



TEST XCT 
INDIRECT DZM 



TEST ISZ INDIRECT 



TEST XCT INDIRECT 
AND INDIRECT 



TEST AUTO -INDEX 



c 



MEMORY TEST 



J 



RUN CHECKERBOARD 
ON OPPOSITE 4K 
FIELD 





RING BELL TO 
INDICATE ONE PASS 




INCREMENT 
PASS COUNT 



RELOCATE 



3 




AUTO- START AT 
LOCATION 70 (SEQUEN) 



PRINT "COMPLETE' 







RETURN FROM 
"COMPLETE" 



) 
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c 



RELOCATE 



> 



1 



TURN OFF PROGRAM 
INTERRUPT 



GET ONE 
INSTRUCTION 




MEM 
CHECK "Ns^REF , 

IF OPERATE ^* ^ 

spR MEM. RE^ 



DAC INTO 

CORRESPONDING AOR 

IN OPPOSITE 4K FIELD 




YES 



MOVE CONSTANT 
TABLES 





YES 



XOR 010000 
TO ADDRESS 



1 



INCREMENT 
PASS COUNT 




PRINT "COMPLETE" 




1 



RING BELL 



AUTO -START AT 
SEQUEN IN HI 4K 



AUTO -START AT 
SEQUEN IN LO 4K 



Program Relocation Routine 
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ENTER SRVINT FROM 
LOCATION 6 PI IS OFF 




Interrupt Service Routine 
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I 



C(7) = 
AT THIS PIONT 



YES 



GENERATE NEW 
RANDOM VALUE 





CLEAR AC BITS 

TO 8 SO VALUE 

IS >9 SECONDS 



COMPLEMENT AC 
a DAC INTO UOC. 7 



TURN CLOCK ON 



c 



RTNIT 



3 



Service Clock Interrupt 



166 



c 



TTYINT 



:> 



SET FLAG TO 

INDICATE TTY IN 

USE 



READER a PUNCH 
|F»REVIOUSLY CLEARED 




FETCH CHARACTER 
FROM TTBUFB 



ERROR HALT 



J 



ERROR HALT 



J 



SELECT TTY (TLS) 



c 



RTNIT 



J 



Service TTY Interrupt 
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( PNSTRT ) 

CLEAR TTY FLAG; 
MASK ACS 7 8 8 




CLEAR PUNCH FLAG 



c 



RTNIT 



J 



I 



SELECT READER a 

PUNCH TO INITIATE 

SEQUENCE 



O 



GENERATE ALPHABET 
CHARACTER 



c 



GO PUNCH 



J 



I 



(RETURN FROM ^ 
GO PUNCH J 



FETCH SPACE 
(240 ASCII) 



C 



1 



QO PUNCH 



1 




GENERATE NUMERIC 
CHARACTER 



c 



GO PUNCH 



3 



K RETURN FROM ^ 
GO PUNCH J 



FETCH SPACE 
(240 ASCII) 



c 



GO PUNCH 



J 



ATTEMPT TO CLEAR 
AC WITH 700010 
(MB 14) 





Punch Routine 



168 



[reader has beehT 
[previously selected! 



r GO PUNCH J 



PUNCH C (AC) 
WITH PSA 





FETCH CHARACTER 
FROM READER BUFFER 



^EAR READER 


FLAG 


V 


(^ RTNIT 


) 



INCREMENT 
COUNT A BY 1 




NOTE: 
COUNT A AND COUNT B ARE 
COUNTERS USED BY THE PROGRAM 
TO ENABLE THE READER TO 
OPERATE AT PUNCH SPEED. 
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FETCH CHARACTER 
FROM READER BUFFER 



CLEAR READER 


FLAG 


V 


( RTNIT 


) 




-HSELECT READER (RSA) 
(^ RTNIT J 



Read full speed ACS 7 A 1 
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c 



RTNIT 



:) 



RESTORE LINK 
(BIT OF RJMR 



RESTORE AC 
(LAC SAVAC) 



ENABLE PROGRAM 
INTERRUPT 



JMP INDIRECT 
ON C(RJMP) 



Q 



EXIT TO 
NSTRUCTION TEST 



^ 



© 



c 



SETTY 



3 




CLEAR PUNCH 
a TTY FLAGS 



READER FLAG 

SHOULD ALREADY 

BE CLEAR 



TRANSFER CONTENTS 

OF TTBUFA (DATA 

READ) TO TTBUFB 

(FOR PRINTING) 



c 



TTYINT 



1 
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